/ SGI Freeware 1999 August / SGI Freeware 1999 August.iso / dist / fw_xemacs.idb / usr / freeware / lib / xemacs-20.4 / lisp / efs / efs-pc.elc.z / efs-pc.elc

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 3b 45 4c 43 14 00 00 00 | 0a 3b 3b 3b 20 63 6f 6d |;ELC....|.;;; com|
|00000010| 70 69 6c 65 64 20 62 79 | 20 6a 75 73 74 69 6e 62 |piled by| justinb|
|00000020| 40 65 62 6f 6e 79 2e 63 | 72 61 79 2e 63 6f 6d 20 |@ebony.c|ray.com |
|00000030| 6f 6e 20 4d 6f 6e 20 4d | 61 72 20 20 39 20 31 32 |on Mon M|ar  9 12|
|00000040| 3a 35 39 3a 33 36 20 31 | 39 39 38 0a 3b 3b 3b 20 |:59:36 1|998.;;; |
|00000050| 66 72 6f 6d 20 66 69 6c | 65 20 2f 68 6f 6d 65 2f |from fil|e /home/|
|00000060| 61 73 70 65 6e 30 37 2f | 6a 75 73 74 69 6e 62 2f |aspen07/|justinb/|
|00000070| 72 6f 6f 74 73 2f 66 72 | 65 65 77 61 72 65 2f 78 |roots/fr|eeware/x|
|00000080| 65 6d 61 63 73 2f 32 30 | 2e 33 2f 78 65 6d 61 63 |emacs/20|.3/xemac|
|00000090| 73 2d 32 30 2e 33 2f 6c | 69 73 70 2f 65 66 73 2f |s-20.3/l|isp/efs/|
|000000a0| 65 66 73 2d 70 63 2e 65 | 6c 0a 3b 3b 3b 20 65 6d |efs-pc.e|l.;;; em|
|000000b0| 61 63 73 20 76 65 72 73 | 69 6f 6e 20 32 30 2e 34 |acs vers|ion 20.4|
|000000c0| 20 22 45 6d 65 72 61 6c | 64 22 20 58 45 6d 61 63 | "Emeral|d" XEmac|
|000000d0| 73 20 20 4c 75 63 69 64 | 2e 0a 3b 3b 3b 20 62 79 |s  Lucid|..;;; by|
|000000e0| 74 65 63 6f 6d 70 20 76 | 65 72 73 69 6f 6e 20 32 |tecomp v|ersion 2|
|000000f0| 2e 32 35 20 58 45 6d 61 | 63 73 3b 20 32 32 2d 4d |.25 XEma|cs; 22-M|
|00000100| 61 72 2d 39 36 2e 0a 3b | 3b 3b 20 6f 70 74 69 6d |ar-96..;|;; optim|
|00000110| 69 7a 61 74 69 6f 6e 20 | 69 73 20 6f 6e 2e 0a 3b |ization |is on..;|
|00000120| 3b 3b 20 74 68 69 73 20 | 66 69 6c 65 20 75 73 65 |;; this |file use|
|00000130| 73 20 6f 70 63 6f 64 65 | 73 20 77 68 69 63 68 20 |s opcode|s which |
|00000140| 64 6f 20 6e 6f 74 20 65 | 78 69 73 74 20 69 6e 20 |do not e|xist in |
|00000150| 45 6d 61 63 73 20 31 39 | 2e 0a 0a 28 69 66 20 28 |Emacs 19|...(if (|
|00000160| 61 6e 64 20 28 62 6f 75 | 6e 64 70 20 27 65 6d 61 |and (bou|ndp 'ema|
|00000170| 63 73 2d 76 65 72 73 69 | 6f 6e 29 0a 09 20 28 6f |cs-versi|on).. (o|
|00000180| 72 20 28 61 6e 64 20 28 | 62 6f 75 6e 64 70 20 27 |r (and (|boundp '|
|00000190| 65 70 6f 63 68 3a 3a 76 | 65 72 73 69 6f 6e 29 20 |epoch::v|ersion) |
|000001a0| 65 70 6f 63 68 3a 3a 76 | 65 72 73 69 6f 6e 29 0a |epoch::v|ersion).|
|000001b0| 09 20 20 20 20 20 28 73 | 74 72 69 6e 67 2d 6c 65 |.     (s|tring-le|
|000001c0| 73 73 70 20 65 6d 61 63 | 73 2d 76 65 72 73 69 6f |ssp emac|s-versio|
|000001d0| 6e 20 22 32 30 22 29 29 | 29 0a 20 20 20 20 28 65 |n "20"))|).    (e|
|000001e0| 72 72 6f 72 20 22 60 65 | 66 73 2d 70 63 2e 65 6c |rror "`e|fs-pc.el|
|000001f0| 27 20 77 61 73 20 63 6f | 6d 70 69 6c 65 64 20 66 |' was co|mpiled f|
|00000200| 6f 72 20 45 6d 61 63 73 | 20 32 30 22 29 29 0a 0a |or Emacs| 20"))..|
|00000210| 28 6f 72 20 28 62 6f 75 | 6e 64 70 20 27 63 75 72 |(or (bou|ndp 'cur|
|00000220| 72 65 6e 74 2d 6c 6f 61 | 64 2d 6c 69 73 74 29 20 |rent-loa|d-list) |
|00000230| 28 73 65 74 71 20 63 75 | 72 72 65 6e 74 2d 6c 6f |(setq cu|rrent-lo|
|00000240| 61 64 2d 6c 69 73 74 20 | 6e 69 6c 29 29 0a 0a 0a |ad-list |nil))...|
|00000250| 28 62 79 74 65 2d 63 6f | 64 65 20 22 c0 c1 21 88 |(byte-co|de "..!.|
|00000260| c2 c3 21 88 c4 c5 c6 4f | c7 c8 c9 c6 4f 51 16 5c |..!....O|....OQ.\|
|00000270| 6e ca 0e 0b 42 16 0b c0 | 87 22 20 5b 70 72 6f 76 |n...B...|." [prov|
|00000280| 69 64 65 20 65 66 73 2d | 70 63 20 72 65 71 75 69 |ide efs-|pc requi|
|00000290| 72 65 20 65 66 73 20 22 | 24 65 66 73 20 72 65 6c |re efs "|$efs rel|
|000002a0| 65 61 73 65 3a 20 31 2e | 31 35 20 24 22 20 31 34 |ease: 1.|15 $" 14|
|000002b0| 20 2d 32 20 22 2f 22 20 | 22 23 52 65 76 69 73 69 | -2 "/" |"#Revisi|
|000002c0| 6f 6e 3a 20 31 2e 31 20 | 24 22 20 31 31 20 65 66 |on: 1.1 |$" 11 ef|
|000002d0| 73 2d 70 63 2d 76 65 72 | 73 69 6f 6e 20 63 75 72 |s-pc-ver|sion cur|
|000002e0| 72 65 6e 74 2d 6c 6f 61 | 64 2d 6c 69 73 74 5d 20 |rent-loa|d-list] |
|000002f0| 35 29 0a 28 64 65 66 61 | 6c 69 61 73 20 27 65 66 |5).(defa|lias 'ef|
|00000300| 73 2d 66 69 78 2d 70 63 | 2d 70 61 74 68 20 23 5b |s-fix-pc|-path #[|
|00000310| 28 70 61 74 68 20 26 6f | 70 74 69 6f 6e 61 6c 20 |(path &o|ptional |
|00000320| 72 65 76 65 72 73 65 29 | 20 22 c0 20 70 09 1a 1b |reverse)| ". p...|
|00000330| 1c c5 8e c6 11 0e 07 ab | c7 c8 c6 89 1e 09 1e 5c |........|.......\|
|00000340| 6e 1e 0b cc cd 0e 0e 5c | 22 ab 88 cf 0e 0e 50 16 |n......\|".....P.|
|00000350| 09 aa 86 d0 0e 0e 21 16 | 09 0e 09 47 16 5c 6e 0e |......!.|...G.\n.|
|00000360| 0b 0e 5c 6e 57 ab 98 0e | 09 0e 0b 48 d1 55 ab 87 |..\nW...|...H.U..|
|00000370| 0e 09 0e 0b d2 49 88 0e | 0b 54 89 16 0b aa 63 0e |.....I..|.T....c.|
|00000380| 09 2b aa c6 c8 c6 89 1e | 09 1e 5c 6e 1e 0b cc d3 |.+......|..\n....|
|00000390| 0e 0e 5c 22 ab 89 0e 0e | d4 c6 4f 16 09 aa 86 d0 |..\"....|..O.....|
|000003a0| 0e 0e 21 16 09 0e 09 47 | 16 5c 6e 0e 0b 0e 5c 6e |..!....G|.\n...\n|
|000003b0| 57 ab 98 0e 09 0e 0b 48 | d2 55 ab 87 0e 09 0e 0b |W......H|.U......|
|000003c0| d1 49 88 0e 0b 54 89 16 | 0b aa 63 0e 09 2b 2c 87 |.I...T..|..c..+,.|
|000003d0| 22 20 5b 6d 61 74 63 68 | 2d 64 61 74 61 20 63 61 |" [match|-data ca|
|000003e0| 73 65 2d 66 6f 6c 64 2d | 73 65 61 72 63 68 20 63 |se-fold-|search c|
|000003f0| 66 73 20 62 75 66 66 20 | 6d 61 74 63 68 2d 64 61 |fs buff |match-da|
|00000400| 74 61 20 28 28 62 79 74 | 65 2d 63 6f 64 65 20 22 |ta ((byt|e-code "|
|00000410| c0 c1 c2 8f 88 c3 0c 21 | 87 22 20 5b 6e 69 6c 20 |.......!|." [nil |
|00000420| 28 62 79 74 65 2d 63 6f | 64 65 20 22 8a 08 71 88 |(byte-co|de "..q.|
|00000430| 09 12 29 c3 87 22 20 5b | 62 75 66 66 20 63 66 73 |..).." [|buff cfs|
|00000440| 20 63 61 73 65 2d 66 6f | 6c 64 2d 73 65 61 72 63 | case-fo|ld-searc|
|00000450| 68 20 6e 69 6c 5d 20 31 | 29 20 28 28 65 72 72 6f |h nil] 1|) ((erro|
|00000460| 72 29 29 20 73 74 6f 72 | 65 2d 6d 61 74 63 68 2d |r)) stor|e-match-|
|00000470| 64 61 74 61 20 6d 61 74 | 63 68 2d 64 61 74 61 5d |data mat|ch-data]|
|00000480| 20 33 29 29 20 6e 69 6c | 20 72 65 76 65 72 73 65 | 3)) nil| reverse|
|00000490| 20 30 20 72 65 73 20 6c | 65 6e 20 6e 20 73 74 72 | 0 res l|en n str|
|000004a0| 69 6e 67 2d 6d 61 74 63 | 68 20 22 5e 5b 61 2d 7a |ing-matc|h "^[a-z|
|000004b0| 41 2d 5a 30 2d 39 5d 3a | 22 20 70 61 74 68 20 22 |A-Z0-9]:|" path "|
|000004c0| 5c 5c 22 20 63 6f 70 79 | 2d 73 65 71 75 65 6e 63 |\\" copy|-sequenc|
|000004d0| 65 20 3f 5c 5c 20 3f 5c | 2f 20 22 5e 2f 5b 61 2d |e ?\\ ?\|/ "^/[a-|
|000004e0| 7a 41 2d 5a 30 2d 39 5d | 3a 22 20 31 5d 20 34 5d |zA-Z0-9]|:" 1] 4]|
|000004f0| 29 0a 28 64 65 66 61 6c | 69 61 73 20 27 65 66 73 |).(defal|ias 'efs|
|00000500| 2d 64 69 72 65 64 2d 70 | 63 2d 6d 6f 76 65 2d 74 |-dired-p|c-move-t|
|00000510| 6f 2d 65 6e 64 2d 6f 66 | 2d 66 69 6c 65 6e 61 6d |o-end-of|-filenam|
|00000520| 65 20 27 28 6d 61 63 72 | 6f 20 2e 20 23 5b 28 26 |e '(macr|o . #[(&|
|00000530| 6f 70 74 69 6f 6e 61 6c | 20 6e 6f 2d 65 72 72 6f |optional| no-erro|
|00000540| 72 20 62 6f 6c 20 65 6f | 6c 29 20 22 c0 c1 c2 c3 |r bol eo|l) "....|
|00000550| c4 0d 44 c6 c7 c8 c9 0e | 5c 6e cb 42 42 44 44 cc |..D.....|\n.BBDD.|
|00000560| 42 42 cd 42 42 42 42 ce | cf d0 cf 0d d1 42 42 d2 |BB.BBBB.|.....BB.|
|00000570| 42 42 42 af 05 87 22 20 | 5b 6c 65 74 20 28 28 6f |BBB..." |[let ((o|
|00000580| 70 6f 69 6e 74 20 28 70 | 6f 69 6e 74 29 29 29 20 |point (p|oint))) |
|00000590| 61 6e 64 20 73 65 6c 65 | 63 74 69 76 65 2d 64 69 |and sele|ctive-di|
|000005a0| 73 70 6c 61 79 20 6e 75 | 6c 6c 20 6e 6f 2d 65 72 |splay nu|ll no-er|
|000005b0| 72 6f 72 20 65 71 20 63 | 68 61 72 2d 61 66 74 65 |ror eq c|har-afte|
|000005c0| 72 20 31 2d 20 6f 72 20 | 62 6f 6c 20 28 28 73 61 |r 1- or |bol ((sa|
|000005d0| 76 65 2d 65 78 63 75 72 | 73 69 6f 6e 20 28 73 6b |ve-excur|sion (sk|
|000005e0| 69 70 2d 63 68 61 72 73 | 2d 62 61 63 6b 77 61 72 |ip-chars|-backwar|
|000005f0| 64 20 22 5e 0d 5c 6e 22 | 29 20 28 70 6f 69 6e 74 |d "^.\n"|) (point|
|00000600| 29 29 29 20 28 3f 5c 72 | 29 20 28 28 63 6f 6e 64 |))) (?\r|) ((cond|
|00000610| 20 28 28 64 69 72 65 64 | 2d 73 75 62 64 69 72 2d | ((dired|-subdir-|
|00000620| 68 69 64 64 65 6e 2d 70 | 20 28 64 69 72 65 64 2d |hidden-p| (dired-|
|00000630| 63 75 72 72 65 6e 74 2d | 64 69 72 65 63 74 6f 72 |current-|director|
|00000640| 79 29 29 20 28 65 72 72 | 6f 72 20 28 73 75 62 73 |y)) (err|or (subs|
|00000650| 74 69 74 75 74 65 2d 63 | 6f 6d 6d 61 6e 64 2d 6b |titute-c|ommand-k|
|00000660| 65 79 73 20 22 46 69 6c | 65 20 6c 69 6e 65 20 69 |eys "Fil|e line i|
|00000670| 73 20 68 69 64 64 65 6e | 2e 20 54 79 70 65 20 5c |s hidden|. Type \|
|00000680| 5c 5b 64 69 72 65 64 2d | 68 69 64 65 2d 73 75 62 |\[dired-|hide-sub|
|00000690| 64 69 72 5d 20 74 6f 20 | 75 6e 68 69 64 65 2e 22 |dir] to |unhide."|
|000006a0| 29 29 29 20 28 28 65 72 | 72 6f 72 20 28 73 75 62 |))) ((er|ror (sub|
|000006b0| 73 74 69 74 75 74 65 2d | 63 6f 6d 6d 61 6e 64 2d |stitute-|command-|
|000006c0| 6b 65 79 73 20 22 46 69 | 6c 65 20 6c 69 6e 65 20 |keys "Fi|le line |
|000006d0| 69 73 20 6f 6d 69 74 74 | 65 64 2e 20 54 79 70 65 |is omitt|ed. Type|
|000006e0| 20 5c 5c 5b 64 69 72 65 | 64 2d 6f 6d 69 74 2d 74 | \\[dire|d-omit-t|
|000006f0| 6f 67 67 6c 65 5d 20 74 | 6f 20 75 6e 2d 6f 6d 69 |oggle] t|o un-omi|
|00000700| 74 2e 22 29 29 29 29 29 | 20 28 73 6b 69 70 2d 63 |t.")))))| (skip-c|
|00000710| 68 61 72 73 2d 66 6f 72 | 77 61 72 64 20 22 2d 5f |hars-for|ward "-_|
|00000720| 2b 3d 61 2d 7a 41 2d 5a | 30 2d 39 2e 24 7e 22 29 |+=a-zA-Z|0-9.$~")|
|00000730| 20 69 66 20 28 3d 20 6f | 70 6f 69 6e 74 20 28 70 | if (= o|point (p|
|00000740| 6f 69 6e 74 29 29 20 28 | 6e 69 6c 20 28 65 72 72 |oint)) (|nil (err|
|00000750| 6f 72 20 22 4e 6f 20 66 | 69 6c 65 20 6f 6e 20 74 |or "No f|ile on t|
|00000760| 68 69 73 20 6c 69 6e 65 | 22 29 29 20 28 28 70 6f |his line|")) ((po|
|00000770| 69 6e 74 29 29 5d 20 31 | 31 5d 29 29 0a 28 64 65 |int))] 1|1])).(de|
|00000780| 66 61 6c 69 61 73 20 27 | 65 66 73 2d 64 69 72 65 |falias '|efs-dire|
|00000790| 64 2d 70 63 2d 69 6e 73 | 65 72 74 2d 68 65 61 64 |d-pc-ins|ert-head|
|000007a0| 65 72 6c 69 6e 65 20 23 | 5b 28 64 69 72 29 20 22 |erline #|[(dir) "|
|000007b0| c0 63 88 c1 75 88 c2 0b | 21 87 22 20 5b 22 20 5c |.c..u...|!." [" \|
|000007c0| 6e 22 20 2d 32 20 65 66 | 73 2d 72 65 61 6c 2d 64 |n" -2 ef|s-real-d|
|000007d0| 69 72 65 64 2d 69 6e 73 | 65 72 74 2d 68 65 61 64 |ired-ins|ert-head|
|000007e0| 65 72 6c 69 6e 65 20 64 | 69 72 5d 20 32 5d 29 0a |erline d|ir] 2]).|
|000007f0| 28 62 79 74 65 2d 63 6f | 64 65 20 22 c0 c1 c2 c3 |(byte-co|de "....|
|00000800| 52 14 c4 0d 42 15 c6 c7 | 50 16 08 c8 0d 42 15 c9 |R...B...|P....B..|
|00000810| 16 5c 6e ca 0d 42 15 cb | cc cd 51 16 0e ce 0d 42 |.\n..B..|..Q....B|
|00000820| 15 cf d0 d1 51 16 12 d2 | 0d 42 15 d3 d4 d5 d6 d7 |....Q...|.B......|
|00000830| 21 0e 18 5c 22 d9 23 88 | d3 da d5 d6 d7 21 0e 18 |!..\".#.|.....!..|
|00000840| 5c 22 db 23 88 d3 dc d5 | d6 d7 21 0e 18 5c 22 dd |\".#....|..!..\".|
|00000850| 23 88 d3 de d5 d6 d7 21 | 0e 18 5c 22 df 23 88 d3 |#......!|..\".#..|
|00000860| e0 d5 d6 d7 21 0e 18 5c | 22 e1 23 88 d3 e2 d5 d6 |....!..\|".#.....|
|00000870| d7 21 0e 18 5c 22 e3 23 | 88 e4 e5 50 16 26 e6 0d |.!..\".#|...P.&..|
|00000880| 42 15 d3 d4 d5 d6 e7 21 | 0e 18 5c 22 e8 23 88 e9 |B......!|..\".#..|
|00000890| 16 2a ea 0d 42 15 e7 0e | 2b b7 ac 89 e7 0e 2a 42 |.*..B...|+.....*B|
|000008a0| 0e 2b 42 16 2b ec 16 2d | ed 0d 42 15 e7 0e 2e b7 |.+B.+..-|..B.....|
|000008b0| ac 89 e7 0e 2d 42 0e 2e | 42 16 2e d3 ef d5 d6 e7 |....-B..|B.......|
|000008c0| 21 0e 18 5c 22 f0 23 88 | d3 f1 d5 d6 e7 21 0e 18 |!..\".#.|.....!..|
|000008d0| 5c 22 f2 23 88 d3 f3 d5 | d6 e7 21 0e 18 5c 22 f4 |\".#....|..!..\".|
|000008e0| 23 88 d3 f5 d5 d6 e7 21 | 0e 18 5c 22 f6 23 88 d3 |#......!|..\".#..|
|000008f0| f7 d5 d6 e7 21 0e 18 5c | 22 f8 23 88 d3 d4 d5 d6 |....!..\|".#.....|
|00000900| f9 21 0e 18 5c 22 fa 23 | 88 fb 16 3c fc 0d 42 15 |.!..\".#|...<..B.|
|00000910| f9 0e 2b b7 ac 89 f9 0e | 3c 42 0e 2b 42 16 2b fd |..+.....|<B.+B.+.|
|00000920| 16 3e fe 0d 42 15 f9 0e | 2e b7 ac 89 f9 0e 3e 42 |.>..B...|......>B|
|00000930| 0e 2e 42 16 2e d3 ef d5 | d6 f9 21 0e 18 5c 22 ff |..B.....|..!..\".|
|00000940| 23 88 d3 f1 d5 d6 f9 21 | 0e 18 5c 22 81 40 00 23 |#......!|..\".@.#|
|00000950| 88 d3 f3 d5 d6 f9 21 0e | 18 5c 22 81 41 00 23 88 |......!.|.\".A.#.|
|00000960| d3 d4 d5 d6 81 42 00 21 | 0e 18 5c 22 81 43 00 23 |.....B.!|..\".C.#|
|00000970| 88 e9 16 44 81 44 00 0d | 42 15 81 42 00 0e 2b b7 |...D.D..|B..B..+.|
|00000980| ac 8b 81 42 00 0e 44 42 | 0e 2b 42 16 2b ec 16 45 |...B..DB|.+B.+..E|
|00000990| 81 45 00 0d 42 15 81 42 | 00 0e 2e b7 ac 8b 81 42 |.E..B..B|.......B|
|000009a0| 00 0e 45 42 0e 2e 42 16 | 2e d3 ef d5 d6 81 42 00 |..EB..B.|......B.|
|000009b0| 21 0e 18 5c 22 81 46 00 | 23 88 d3 f1 d5 d6 81 42 |!..\".F.|#......B|
|000009c0| 00 21 0e 18 5c 22 81 47 | 00 23 88 d3 f3 d5 d6 81 |.!..\".G|.#......|
|000009d0| 42 00 21 0e 18 5c 22 81 | 48 00 23 88 d3 f5 d5 d6 |B.!..\".|H.#.....|
|000009e0| 81 42 00 21 0e 18 5c 22 | 81 49 00 23 88 d3 f7 d5 |.B.!..\"|.I.#....|
|000009f0| d6 81 42 00 21 0e 18 5c | 22 81 4a 00 23 88 0e 08 |..B.!..\|".J.#...|
|00000a00| 81 4b 00 50 16 4c 81 4c | 00 0d 42 15 d3 d4 d5 d6 |.K.P.L.L|..B.....|
|00000a10| 81 4d 00 21 0e 18 5c 22 | 81 4e 00 23 88 81 4f 00 |.M.!..\"|.N.#..O.|
|00000a20| 16 50 81 50 00 0d 42 15 | 81 4d 00 0e 2b b7 ac 8b |.P.P..B.|.M..+...|
|00000a30| 81 4d 00 0e 50 42 0e 2b | 42 16 2b 81 51 00 16 52 |.M..PB.+|B.+.Q..R|
|00000a40| 81 52 00 0d 42 15 81 4d | 00 0e 2e b7 ac 8b 81 4d |.R..B..M|.......M|
|00000a50| 00 0e 52 42 0e 2e 42 16 | 2e d3 ef d5 d6 81 4d 00 |..RB..B.|......M.|
|00000a60| 21 0e 18 5c 22 81 53 00 | 23 88 d3 f1 d5 d6 81 4d |!..\".S.|#......M|
|00000a70| 00 21 0e 18 5c 22 81 54 | 00 23 88 d3 f3 d5 d6 81 |.!..\".T|.#......|
|00000a80| 4d 00 21 0e 18 5c 22 81 | 55 00 23 88 d3 d4 d5 d6 |M.!..\".|U.#.....|
|00000a90| 81 56 00 21 0e 18 5c 22 | 81 57 00 23 88 81 58 00 |.V.!..\"|.W.#..X.|
|00000aa0| 16 59 81 59 00 0d 42 15 | 81 56 00 0e 2b b7 ac 8b |.Y.Y..B.|.V..+...|
|00000ab0| 81 56 00 0e 59 42 0e 2b | 42 16 2b 81 5a 00 16 5b |.V..YB.+|B.+.Z..[|
|00000ac0| 81 5b 00 0d 42 15 81 56 | 00 0e 2e b7 ac 8b 81 56 |.[..B..V|.......V|
|00000ad0| 00 0e 5b 42 0e 2e 42 16 | 2e d3 ef d5 d6 81 56 00 |..[B..B.|......V.|
|00000ae0| 21 0e 18 5c 22 81 5c 5c | 00 23 88 d3 f1 d5 d6 81 |!..\".\\|.#......|
|00000af0| 56 00 21 0e 18 5c 22 81 | 5d 00 23 88 d3 f3 d5 d6 |V.!..\".|].#.....|
|00000b00| 81 56 00 21 0e 18 5c 22 | 81 5e 00 23 88 d3 f5 d5 |.V.!..\"|.^.#....|
|00000b10| d6 81 56 00 21 0e 18 5c | 22 81 5f 00 23 88 d3 d4 |..V.!..\|"._.#...|
|00000b20| d5 d6 81 60 00 21 0e 18 | 5c 22 81 61 00 23 88 81 |...`.!..|\".a.#..|
|00000b30| 62 00 16 63 81 63 00 0d | 42 15 81 60 00 0e 2b b7 |b..c.c..|B..`..+.|
|00000b40| ac 8b 81 60 00 0e 63 42 | 0e 2b 42 16 2b 81 64 00 |...`..cB|.+B.+.d.|
|00000b50| 16 65 81 65 00 0d 42 15 | 81 60 00 0e 2e b7 ac 8b |.e.e..B.|.`......|
|00000b60| 81 60 00 0e 65 42 0e 2e | 42 16 2e d3 ef d5 d6 81 |.`..eB..|B.......|
|00000b70| 60 00 21 0e 18 5c 22 81 | 66 00 23 88 d3 f1 d5 d6 |`.!..\".|f.#.....|
|00000b80| 81 60 00 21 0e 18 5c 22 | 81 67 00 23 88 d3 f3 d5 |.`.!..\"|.g.#....|
|00000b90| d6 81 60 00 21 0e 18 5c | 22 81 68 00 23 88 d3 f5 |..`.!..\|".h.#...|
|00000ba0| d5 d6 81 60 00 21 0e 18 | 5c 22 81 69 00 23 88 81 |...`.!..|\".i.#..|
|00000bb0| 6a 00 81 6b 00 50 16 6c | 81 6c 00 0d 42 15 d3 dc |j..k.P.l|.l..B...|
|00000bc0| d5 d6 81 6d 00 21 0e 18 | 5c 22 81 6e 00 23 88 d3 |...m.!..|\".n.#..|
|00000bd0| de d5 d6 81 6d 00 21 0e | 18 5c 22 81 6f 00 23 88 |....m.!.|.\".o.#.|
|00000be0| 0e 6c 81 70 00 50 16 71 | 81 71 00 0d 42 15 d3 d4 |.l.p.P.q|.q..B...|
|00000bf0| d5 d6 81 6d 00 21 0e 18 | 5c 22 81 72 00 23 88 81 |...m.!..|\".r.#..|
|00000c00| 73 00 16 74 81 74 00 0d | 42 15 81 6d 00 0e 2b b7 |s..t.t..|B..m..+.|
|00000c10| ac 8b 81 6d 00 0e 74 42 | 0e 2b 42 16 2b 81 75 00 |...m..tB|.+B.+.u.|
|00000c20| 16 76 81 76 00 0d 42 15 | 81 6d 00 0e 2e b7 ac 8b |.v.v..B.|.m......|
|00000c30| 81 6d 00 0e 76 42 0e 2e | 42 16 2e d3 f1 d5 d6 81 |.m..vB..|B.......|
|00000c40| 6d 00 21 0e 18 5c 22 81 | 77 00 23 88 d3 f3 d5 d6 |m.!..\".|w.#.....|
|00000c50| 81 6d 00 21 0e 18 5c 22 | 81 78 00 23 88 d3 ef d5 |.m.!..\"|.x.#....|
|00000c60| d6 81 6d 00 21 0e 18 5c | 22 81 79 00 23 87 22 20 |..m.!..\|".y.#." |
|00000c70| 5b 22 20 2a 5c 5c 28 5b | 30 2d 39 5d 2b 5c 5c 7c |[" *\\([|0-9]+\\||
|00000c80| 3c 64 69 72 3e 5c 5c 29 | 20 2b 5c 5c 28 5b 2d 5f |<dir>\\)| +\\([-_|
|00000c90| 2b 3d 61 2d 7a 41 2d 5a | 30 2d 39 24 7e 2e 5d 2b |+=a-zA-Z|0-9$~.]+|
|00000ca0| 5c 5c 29 22 20 22 20 2b | 5c 5c 28 4d 6f 6e 5c 5c |\\)" " +|\\(Mon\\|
|00000cb0| 7c 54 75 65 5c 5c 7c 57 | 65 64 5c 5c 7c 54 68 75 ||Tue\\|W|ed\\|Thu|
|00000cc0| 5c 5c 7c 46 72 69 5c 5c | 7c 53 61 74 5c 5c 7c 53 |\\|Fri\\||Sat\\|S|
|00000cd0| 75 6e 5c 5c 29 20 22 20 | 22 5c 5c 28 4a 61 6e 5c |un\\) " |"\\(Jan\|
|00000ce0| 5c 7c 46 65 62 5c 5c 7c | 4d 61 72 5c 5c 7c 41 70 |\|Feb\\||Mar\\|Ap|
|00000cf0| 72 5c 5c 7c 4d 61 79 5c | 5c 7c 4a 75 6e 5c 5c 7c |r\\|May\|\|Jun\\||
|00000d00| 4a 75 6c 5c 5c 7c 41 75 | 67 5c 5c 7c 53 65 70 5c |Jul\\|Au|g\\|Sep\|
|00000d10| 5c 7c 22 20 22 4f 63 74 | 5c 5c 7c 4e 6f 76 5c 5c |\|" "Oct|\\|Nov\\|
|00000d20| 7c 44 65 63 5c 5c 29 20 | 5b 30 2d 33 5d 5b 30 2d ||Dec\\) |[0-3][0-|
|00000d30| 39 5d 20 22 20 65 66 73 | 2d 64 6f 73 3a 66 74 70 |9] " efs|-dos:ftp|
|00000d40| 2d 66 69 6c 65 2d 6c 69 | 6e 65 2d 72 65 67 65 78 |-file-li|ne-regex|
|00000d50| 70 20 63 75 72 72 65 6e | 74 2d 6c 6f 61 64 2d 6c |p curren|t-load-l|
|00000d60| 69 73 74 20 22 5b 30 31 | 5d 5b 30 2d 39 5d 2d 5b |ist "[01|][0-9]-[|
|00000d70| 30 2d 33 5d 5b 30 2d 39 | 5d 2d 5b 30 2d 39 5d 5b |0-3][0-9|]-[0-9][|
|00000d80| 30 2d 39 5d 20 2b 5b 30 | 31 32 5d 5b 30 2d 39 5d |0-9] +[0|12][0-9]|
|00000d90| 3a 5b 30 2d 35 5d 5b 30 | 2d 39 5d 5b 41 50 5d 4d |:[0-5][0|-9][AP]M|
|00000da0| 20 2b 22 20 22 5c 5c 28 | 3c 44 49 52 3e 5c 5c 7c | +" "\\(|<DIR>\\||
|00000db0| 5b 30 2d 39 5d 2b 5c 5c | 29 20 2b 22 20 65 66 73 |[0-9]+\\|) +" efs|
|00000dc0| 2d 64 6f 73 3a 6d 69 63 | 72 6f 73 6f 66 74 2d 66 |-dos:mic|rosoft-f|
|00000dd0| 69 6c 65 2d 6c 69 6e 65 | 2d 72 65 67 65 78 70 20 |ile-line|-regexp |
|00000de0| 22 5c 5c 28 5b 2d 5f 2b | 3d 61 2d 7a 41 2d 5a 30 |"\\([-_+|=a-zA-Z0|
|00000df0| 2d 39 24 2e 7e 5d 2b 5c | 5c 29 20 2b 5c 5c 28 3c |-9$.~]+\|\) +\\(<|
|00000e00| 44 49 52 3e 5c 5c 7c 5b | 30 2d 39 5d 2b 5c 5c 29 |DIR>\\|[|0-9]+\\)|
|00000e10| 5b 20 5c 6e 5d 22 20 65 | 66 73 2d 64 6f 73 3a 6e |[ \n]" e|fs-dos:n|
|00000e20| 63 73 61 2d 66 69 6c 65 | 2d 6c 69 6e 65 2d 72 65 |csa-file|-line-re|
|00000e30| 67 65 78 70 20 22 5c 5c | 28 5b 2d 5f 2b 3d 61 2d |gexp "\\|([-_+=a-|
|00000e40| 7a 41 2d 5a 30 2d 39 24 | 7e 2e 5d 2b 5c 5c 29 20 |zA-Z0-9$|~.]+\\) |
|00000e50| 2b 5c 5c 28 3c 44 49 52 | 3e 5c 5c 7c 5b 30 2d 39 |+\\(<DIR|>\\|[0-9|
|00000e60| 5d 2b 5c 5c 29 20 22 20 | 22 2b 5b 30 2d 39 5d 5b |]+\\) " |"+[0-9][|
|00000e70| 30 2d 39 5d 3f 2d 5b 30 | 2d 33 5d 5b 30 2d 39 5d |0-9]?-[0|-3][0-9]|
|00000e80| 2d 5b 31 32 5d 5b 39 30 | 5d 5b 30 2d 39 5d 5b 30 |-[12][90|][0-9][0|
|00000e90| 2d 39 5d 20 2b 22 20 22 | 5b 30 2d 39 5d 5b 30 2d |-9] +" "|[0-9][0-|
|00000ea0| 39 5d 3f 3a 5b 30 2d 35 | 5d 5b 30 2d 39 5d 22 20 |9]?:[0-5|][0-9]" |
|00000eb0| 65 66 73 2d 64 6f 73 3a | 73 74 63 70 2d 66 69 6c |efs-dos:|stcp-fil|
|00000ec0| 65 2d 6c 69 6e 65 2d 72 | 65 67 65 78 70 20 22 20 |e-line-r|egexp " |
|00000ed0| 5c 5c 28 5b 30 2d 39 5d | 2b 5c 5c 29 20 22 20 22 |\\([0-9]|+\\) " "|
|00000ee0| 5c 5c 28 4a 61 6e 5c 5c | 7c 46 65 62 5c 5c 7c 4d |\\(Jan\\||Feb\\|M|
|00000ef0| 61 72 5c 5c 7c 41 70 72 | 5c 5c 7c 4d 61 79 5c 5c |ar\\|Apr|\\|May\\|
|00000f00| 7c 4a 75 6e 5c 5c 7c 4a | 75 6c 5c 5c 7c 41 75 67 ||Jun\\|J|ul\\|Aug|
|00000f10| 5c 5c 7c 53 65 70 5c 5c | 7c 4f 63 74 5c 5c 7c 4e |\\|Sep\\||Oct\\|N|
|00000f20| 6f 76 5c 5c 7c 22 20 22 | 44 65 63 5c 5c 29 20 5b |ov\\|" "|Dec\\) [|
|00000f30| 20 30 2d 33 5d 5b 30 2d | 39 5d 20 5c 5c 28 20 5b | 0-3][0-|9] \\( [|
|00000f40| 31 32 5d 5b 30 2d 39 5d | 5b 30 2d 39 5d 5b 30 2d |12][0-9]|[0-9][0-|
|00000f50| 39 5d 5c 5c 7c 5b 30 2d | 32 5d 5b 30 2d 39 5d 3a |9]\\|[0-|2][0-9]:|
|00000f60| 5b 30 2d 36 5d 5b 30 2d | 39 5d 5c 5c 29 20 2b 22 |[0-6][0-|9]\\) +"|
|00000f70| 20 65 66 73 2d 64 6f 73 | 3a 77 69 6e 73 6f 63 6b | efs-dos|:winsock|
|00000f80| 2d 64 61 74 65 2d 61 6e | 64 2d 73 69 7a 65 2d 72 |-date-an|d-size-r|
|00000f90| 65 67 65 78 70 20 70 75 | 74 20 65 66 73 2d 70 61 |egexp pu|t efs-pa|
|00000fa0| 72 73 65 2d 6c 69 73 74 | 69 6e 67 20 69 6e 74 65 |rse-list|ing inte|
|00000fb0| 72 6e 20 73 79 6d 62 6f | 6c 2d 6e 61 6d 65 20 64 |rn symbo|l-name d|
|00000fc0| 6f 73 20 65 66 73 2d 6b | 65 79 2d 6f 62 61 72 72 |os efs-k|ey-obarr|
|00000fd0| 61 79 20 23 5b 28 68 6f | 73 74 20 75 73 65 72 20 |ay #[(ho|st user |
|00000fe0| 64 69 72 20 70 61 74 68 | 20 26 6f 70 74 69 6f 6e |dir path| &option|
|00000ff0| 61 6c 20 73 77 69 74 63 | 68 65 73 29 20 22 c0 20 |al switc|hes) ". |
|00001000| 70 09 1a 1b 1c c5 8e c6 | 11 c7 0e 08 c6 c9 23 ab |p.......|......#.|
|00001010| 99 ca cb 0e 0c 0e 0d 23 | 88 ce cb 0e 0c 0e 0d 0e |.......#|........|
|00001020| 0f 0e 10 0e 11 26 06 82 | 29 01 8a 64 62 88 d2 79 |.....&..|)..db..y|
|00001030| 88 d3 d4 21 29 ab 99 ca | d5 0e 0c 0e 0d 23 88 ce |...!)...|.....#..|
|00001040| d5 0e 0c 0e 0d 0e 0f 0e | 10 0e 11 26 06 82 29 01 |........|...&..).|
|00001050| c7 0e 16 c6 c9 23 ab 99 | ca d7 0e 0c 0e 0d 23 88 |.....#..|......#.|
|00001060| ce d7 0e 0c 0e 0d 0e 0f | 0e 10 0e 11 26 06 82 29 |........|....&..)|
|00001070| 01 c7 0e 18 c6 c9 23 ab | 99 ca d9 0e 0c 0e 0d 23 |......#.|.......#|
|00001080| 88 ce d9 0e 0c 0e 0d 0e | 0f 0e 10 0e 11 26 06 82 |........|.....&..|
|00001090| 29 01 c7 0e 1a c6 c9 23 | ab 98 ca db 0e 0c 0e 0d |)......#|........|
|000010a0| 23 88 ce db 0e 0c 0e 0d | 0e 0f 0e 10 0e 11 26 06 |#.......|......&.|
|000010b0| aa f5 c7 0e 1c c6 c9 23 | ab 98 ca dd 0e 0c 0e 0d |.......#|........|
|000010c0| 23 88 ce dd 0e 0c 0e 0d | 0e 0f 0e 10 0e 11 26 06 |#.......|......&.|
|000010d0| aa d5 de df 0e 0f 5c 22 | ab cd e0 20 1e 21 e2 1e |......\"|... .!..|
|000010e0| 23 e2 3b ab 84 0e 23 aa | 84 e4 0e 23 21 29 1e 23 |#.;...#.|...#!).#|
|000010f0| e5 0e 23 0e 21 5c 22 1e | 26 e7 0e 26 e8 e9 23 88 |..#.!\".|&..&..#.|
|00001100| 2a ea 1e 23 ea 3b ab 84 | 0e 23 aa 84 e4 0e 23 21 |*..#.;..|.#....#!|
|00001110| 29 1e 23 e5 0e 23 0e 21 | 5c 22 1e 26 e7 0e 26 e8 |).#..#.!|\".&..&.|
|00001120| eb 23 88 2a 0e 21 29 aa | 81 c6 2c 87 22 20 5b 6d |.#.*.!).|..,." [m|
|00001130| 61 74 63 68 2d 64 61 74 | 61 20 63 61 73 65 2d 66 |atch-dat|a case-f|
|00001140| 6f 6c 64 2d 73 65 61 72 | 63 68 20 63 66 73 20 62 |old-sear|ch cfs b|
|00001150| 75 66 66 20 6d 61 74 63 | 68 2d 64 61 74 61 20 28 |uff matc|h-data (|
|00001160| 28 62 79 74 65 2d 63 6f | 64 65 20 22 c0 c1 c2 8f |(byte-co|de "....|
|00001170| 88 c3 0c 21 87 22 20 5b | 6e 69 6c 20 28 62 79 74 |...!." [|nil (byt|
|00001180| 65 2d 63 6f 64 65 20 22 | 8a 08 71 88 09 12 29 c3 |e-code "|..q...).|
|00001190| 87 22 20 5b 62 75 66 66 | 20 63 66 73 20 63 61 73 |." [buff| cfs cas|
|000011a0| 65 2d 66 6f 6c 64 2d 73 | 65 61 72 63 68 20 6e 69 |e-fold-s|earch ni|
|000011b0| 6c 5d 20 31 29 20 28 28 | 65 72 72 6f 72 29 29 20 |l] 1) ((|error)) |
|000011c0| 73 74 6f 72 65 2d 6d 61 | 74 63 68 2d 64 61 74 61 |store-ma|tch-data|
|000011d0| 20 6d 61 74 63 68 2d 64 | 61 74 61 5d 20 33 29 29 | match-d|ata] 3))|
|000011e0| 20 6e 69 6c 20 72 65 2d | 73 65 61 72 63 68 2d 66 | nil re-|search-f|
|000011f0| 6f 72 77 61 72 64 20 65 | 66 73 2d 64 6f 73 3a 6d |orward e|fs-dos:m|
|00001200| 69 63 72 6f 73 6f 66 74 | 2d 66 69 6c 65 2d 6c 69 |icrosoft|-file-li|
|00001210| 6e 65 2d 72 65 67 65 78 | 70 20 74 20 65 66 73 2d |ne-regex|p t efs-|
|00001220| 61 64 64 2d 6c 69 73 74 | 69 6e 67 2d 74 79 70 65 |add-list|ing-type|
|00001230| 20 64 6f 73 3a 6d 69 63 | 72 6f 73 6f 66 74 20 68 | dos:mic|rosoft h|
|00001240| 6f 73 74 20 75 73 65 72 | 20 65 66 73 2d 70 61 72 |ost user| efs-par|
|00001250| 73 65 2d 6c 69 73 74 69 | 6e 67 20 64 69 72 20 70 |se-listi|ng dir p|
|00001260| 61 74 68 20 73 77 69 74 | 63 68 65 73 20 2d 31 20 |ath swit|ches -1 |
|00001270| 6c 6f 6f 6b 69 6e 67 2d | 61 74 20 22 20 5b 30 2d |looking-|at " [0-|
|00001280| 39 5d 2b 20 46 69 6c 65 | 28 73 29 5c 6e 22 20 64 |9]+ File|(s)\n" d|
|00001290| 6f 73 3a 6e 6f 76 65 6c | 6c 20 65 66 73 2d 64 6f |os:novel|l efs-do|
|000012a0| 73 3a 66 74 70 2d 66 69 | 6c 65 2d 6c 69 6e 65 2d |s:ftp-fi|le-line-|
|000012b0| 72 65 67 65 78 70 20 64 | 6f 73 3a 66 74 70 20 65 |regexp d|os:ftp e|
|000012c0| 66 73 2d 64 6f 73 3a 77 | 69 6e 73 6f 63 6b 2d 64 |fs-dos:w|insock-d|
|000012d0| 61 74 65 2d 61 6e 64 2d | 73 69 7a 65 2d 72 65 67 |ate-and-|size-reg|
|000012e0| 65 78 70 20 64 6f 73 3a | 77 69 6e 73 6f 63 6b 20 |exp dos:|winsock |
|000012f0| 65 66 73 2d 64 6f 73 3a | 6e 63 73 61 2d 66 69 6c |efs-dos:|ncsa-fil|
|00001300| 65 2d 6c 69 6e 65 2d 72 | 65 67 65 78 70 20 64 6f |e-line-r|egexp do|
|00001310| 73 3a 6e 63 73 61 20 65 | 66 73 2d 64 6f 73 3a 73 |s:ncsa e|fs-dos:s|
|00001320| 74 63 70 2d 66 69 6c 65 | 2d 6c 69 6e 65 2d 72 65 |tcp-file|-line-re|
|00001330| 67 65 78 70 20 64 6f 73 | 3a 73 74 63 70 20 73 74 |gexp dos|:stcp st|
|00001340| 72 69 6e 67 2d 6d 61 74 | 63 68 20 22 5e 2f 5c 5c |ring-mat|ch "^/\\|
|00001350| 28 5b 41 2d 5a 61 2d 7a | 30 2d 39 5d 3a 2f 5c 5c |([A-Za-z|0-9]:/\\|
|00001360| 29 3f 24 22 20 65 66 73 | 2d 6d 61 6b 65 2d 68 61 |)?$" efs|-make-ha|
|00001370| 73 68 74 61 62 6c 65 20 | 74 62 6c 20 22 2e 22 20 |shtable |tbl "." |
|00001380| 6b 65 79 20 70 72 69 6e | 31 2d 74 6f 2d 73 74 72 |key prin|1-to-str|
|00001390| 69 6e 67 20 69 6e 74 65 | 72 6e 20 73 79 6d 20 70 |ing inte|rn sym p|
|000013a0| 75 74 20 76 61 6c 20 28 | 74 29 20 22 2e 2e 22 20 |ut val (|t) ".." |
|000013b0| 28 74 29 5d 20 37 5d 20 | 65 66 73 2d 6c 73 2d 64 |(t)] 7] |efs-ls-d|
|000013c0| 75 6d 62 2d 63 68 65 63 | 6b 20 23 5b 28 6c 69 6e |umb-chec|k #[(lin|
|000013d0| 65 20 68 6f 73 74 20 66 | 69 6c 65 20 70 61 74 68 |e host f|ile path|
|000013e0| 20 6c 73 61 72 67 73 20 | 6d 73 67 20 6e 6f 70 61 | lsargs |msg nopa|
|000013f0| 72 73 65 20 6e 6f 65 72 | 72 6f 72 20 6e 6f 77 61 |rse noer|ror nowa|
|00001400| 69 74 20 63 6f 6e 74 29 | 20 22 c0 c1 5c 6e 5c 22 |it cont)| "..\n\"|
|00001410| 85 99 00 c0 c3 0c 5c 22 | 85 99 00 0d 3f ae 8a 0d |......\"|....?...|
|00001420| c6 61 ae 85 c7 0e 08 c9 | 5c 22 1e 06 ca 0e 0b 0e |.a......|\"......|
|00001430| 08 cc 0e 06 24 88 0e 06 | ab d0 cd 0e 0b ce 20 1e |....$...|...... .|
|00001440| 0f d0 1e 11 d0 3b ab 84 | 0e 11 aa 84 d2 0e 11 21 |.....;..|.......!|
|00001450| 29 1e 11 d3 0e 11 0e 0f | 5c 22 1e 14 d5 0e 14 d6 |).......|\"......|
|00001460| d7 23 88 2a d8 1e 11 d8 | 3b ab 84 0e 11 aa 84 d2 |.#.*....|;.......|
|00001470| 0e 11 21 29 1e 11 d3 0e | 11 0e 0f 5c 22 1e 14 d5 |..!)....|...\"...|
|00001480| 0e 14 d6 d9 23 88 2a 0e | 0f 29 5c 22 88 0e 1a ab |....#.*.|.)\"....|
|00001490| 8d 0e 1b ab 86 dc 0e 1b | cc 5c 22 88 c9 aa 8b 0e |........|.\".....|
|000014a0| 1b ab 86 dc 0e 1b cc 5c | 22 88 cc 29 87 22 20 5b |.......\|"..)." [|
|000014b0| 73 74 72 69 6e 67 2d 6d | 61 74 63 68 20 22 5e 35 |string-m|atch "^5|
|000014c0| 30 31 20 22 20 6c 69 6e | 65 20 22 5e 2f 5b 41 2d |01 " lin|e "^/[A-|
|000014d0| 5a 61 2d 7a 30 2d 39 5d | 3a 2f 3f 24 22 20 70 61 |Za-z0-9]|:/?$" pa|
|000014e0| 74 68 20 6e 6f 70 61 72 | 73 65 20 70 61 72 73 65 |th nopar|se parse|
|000014f0| 20 65 66 73 2d 70 61 72 | 73 61 62 6c 65 2d 73 77 | efs-par|sable-sw|
|00001500| 69 74 63 68 65 73 2d 70 | 20 6c 73 61 72 67 73 20 |itches-p| lsargs |
|00001510| 74 20 65 66 73 2d 61 64 | 64 2d 74 6f 2d 6c 73 2d |t efs-ad|d-to-ls-|
|00001520| 63 61 63 68 65 20 66 69 | 6c 65 20 22 5c 6e 22 20 |cache fi|le "\n" |
|00001530| 65 66 73 2d 73 65 74 2d | 66 69 6c 65 73 20 65 66 |efs-set-|files ef|
|00001540| 73 2d 6d 61 6b 65 2d 68 | 61 73 68 74 61 62 6c 65 |s-make-h|ashtable|
|00001550| 20 74 62 6c 20 22 2e 22 | 20 6b 65 79 20 70 72 69 | tbl "."| key pri|
|00001560| 6e 31 2d 74 6f 2d 73 74 | 72 69 6e 67 20 69 6e 74 |n1-to-st|ring int|
|00001570| 65 72 6e 20 73 79 6d 20 | 70 75 74 20 76 61 6c 20 |ern sym |put val |
|00001580| 28 74 29 20 22 2e 2e 22 | 20 28 74 29 20 6e 6f 77 |(t) ".."| (t) now|
|00001590| 61 69 74 20 63 6f 6e 74 | 20 65 66 73 2d 63 61 6c |ait cont| efs-cal|
|000015a0| 6c 2d 63 6f 6e 74 5d 20 | 36 5d 20 65 66 73 2d 66 |l-cont] |6] efs-f|
|000015b0| 69 78 2d 70 61 74 68 20 | 23 5b 28 70 61 74 68 20 |ix-path |#[(path |
|000015c0| 26 6f 70 74 69 6f 6e 61 | 6c 20 72 65 76 65 72 73 |&optiona|l revers|
|000015d0| 65 29 20 22 c0 09 5c 6e | 5c 22 87 22 20 5b 65 66 |e) "..\n|\"." [ef|
|000015e0| 73 2d 66 69 78 2d 70 63 | 2d 70 61 74 68 20 70 61 |s-fix-pc|-path pa|
|000015f0| 74 68 20 72 65 76 65 72 | 73 65 5d 20 33 5d 20 65 |th rever|se] 3] e|
|00001600| 66 73 2d 66 69 78 2d 64 | 69 72 2d 70 61 74 68 20 |fs-fix-d|ir-path |
|00001610| 23 5b 28 64 69 72 2d 70 | 61 74 68 29 20 22 c0 c1 |#[(dir-p|ath) "..|
|00001620| 5c 6e 5c 22 ab 84 c3 c4 | 21 87 c0 c5 5c 6e 5c 22 |\n\"....|!...\n\"|
|00001630| ab 86 c6 5c 6e 21 c7 50 | 87 c6 5c 6e 21 87 22 20 |...\n!.P|..\n!." |
|00001640| 5b 73 74 72 69 6e 67 2d | 6d 61 74 63 68 20 22 5e |[string-|match "^|
|00001650| 2f 5c 5c 28 2e 3a 5c 5c | 29 3f 24 22 20 64 69 72 |/\\(.:\\|)?$" dir|
|00001660| 2d 70 61 74 68 20 65 72 | 72 6f 72 20 22 43 61 6e |-path er|ror "Can|
|00001670| 27 74 20 6c 69 73 74 20 | 44 4f 53 20 6f 72 20 4f |'t list |DOS or O|
|00001680| 53 2f 32 20 64 69 73 6b | 73 22 20 22 2f 24 22 20 |S/2 disk|s" "/$" |
|00001690| 65 66 73 2d 66 69 78 2d | 70 63 2d 70 61 74 68 20 |efs-fix-|pc-path |
|000016a0| 22 2a 2e 2a 22 5d 20 33 | 5d 20 65 66 73 2d 67 65 |"*.*"] 3|] efs-ge|
|000016b0| 74 2d 70 77 64 20 23 5b | 28 68 6f 73 74 20 75 73 |t-pwd #[|(host us|
|000016c0| 65 72 20 26 6f 70 74 69 | 6f 6e 61 6c 20 78 70 77 |er &opti|onal xpw|
|000016d0| 64 29 20 22 c0 09 5c 6e | c3 0c ab 83 c4 aa 81 c5 |d) "..\n|........|
|000016e0| 44 c6 24 89 1e 07 41 40 | 1e 08 c9 1e 5c 6e 0e 07 |D.$...A@|....\n..|
|000016f0| 40 ab a8 cb 20 70 0e 0c | 1e 0d 1e 0e 1e 0f d0 8e |@... p..|........|
|00001700| c9 16 0c d1 d2 0e 08 5c | 22 ac 87 d1 d3 0e 08 5c |.......\|"......\|
|00001710| 22 ab 89 0e 08 d4 94 d4 | 95 4f 16 5c 6e 2c 0e 5c |".......|.O.\n,.\|
|00001720| 6e 0e 08 2b 42 87 22 20 | 5b 65 66 73 2d 73 65 6e |n..+B." |[efs-sen|
|00001730| 64 2d 63 6d 64 20 68 6f | 73 74 20 75 73 65 72 20 |d-cmd ho|st user |
|00001740| 71 75 6f 74 65 20 78 70 | 77 64 20 70 77 64 20 22 |quote xp|wd pwd "|
|00001750| 47 65 74 74 69 6e 67 20 | 50 57 44 22 20 72 65 73 |Getting |PWD" res|
|00001760| 75 6c 74 20 6c 69 6e 65 | 20 6e 69 6c 20 64 69 72 |ult line| nil dir|
|00001770| 20 6d 61 74 63 68 2d 64 | 61 74 61 20 63 61 73 65 | match-d|ata case|
|00001780| 2d 66 6f 6c 64 2d 73 65 | 61 72 63 68 20 63 66 73 |-fold-se|arch cfs|
|00001790| 20 62 75 66 66 20 6d 61 | 74 63 68 2d 64 61 74 61 | buff ma|tch-data|
|000017a0| 20 28 28 62 79 74 65 2d | 63 6f 64 65 20 22 c0 c1 | ((byte-|code "..|
|000017b0| c2 8f 88 c3 0c 21 87 22 | 20 5b 6e 69 6c 20 28 62 |.....!."| [nil (b|
|000017c0| 79 74 65 2d 63 6f 64 65 | 20 22 8a 08 71 88 09 12 |yte-code| "..q...|
|000017d0| 29 c3 87 22 20 5b 62 75 | 66 66 20 63 66 73 20 63 |).." [bu|ff cfs c|
|000017e0| 61 73 65 2d 66 6f 6c 64 | 2d 73 65 61 72 63 68 20 |ase-fold|-search |
|000017f0| 6e 69 6c 5d 20 31 29 20 | 28 28 65 72 72 6f 72 29 |nil] 1) |((error)|
|00001800| 29 20 73 74 6f 72 65 2d | 6d 61 74 63 68 2d 64 61 |) store-|match-da|
|00001810| 74 61 20 6d 61 74 63 68 | 2d 64 61 74 61 5d 20 33 |ta match|-data] 3|
|00001820| 29 29 20 73 74 72 69 6e | 67 2d 6d 61 74 63 68 20 |)) strin|g-match |
|00001830| 22 5c 22 5c 5c 28 5b 5e | 5c 22 5d 2a 5c 5c 29 5c |"\"\\([^|\"]*\\)\|
|00001840| 22 22 20 22 43 75 72 72 | 65 6e 74 20 77 6f 72 6b |"" "Curr|ent work|
|00001850| 69 6e 67 20 64 69 72 65 | 63 74 6f 72 79 20 69 73 |ing dire|ctory is|
|00001860| 20 2b 5c 5c 28 5b 5e 20 | 5d 2b 5c 5c 29 24 22 20 | +\\([^ |]+\\)$" |
|00001870| 31 5d 20 36 5d 20 65 66 | 73 2d 61 6c 6c 6f 77 2d |1] 6] ef|s-allow-|
|00001880| 63 68 69 6c 64 2d 6c 6f | 6f 6b 75 70 20 23 5b 28 |child-lo|okup #[(|
|00001890| 68 6f 73 74 20 75 73 65 | 72 20 64 69 72 20 66 69 |host use|r dir fi|
|000018a0| 6c 65 29 20 22 c0 c1 5c | 6e 5c 22 3f 87 22 20 5b |le) "..\|n\"?." [|
|000018b0| 73 74 72 69 6e 67 2d 6d | 61 74 63 68 20 22 5c 5c |string-m|atch "\\|
|000018c0| 2e 22 20 66 69 6c 65 5d | 20 33 5d 20 22 5c 5c 28 |." file]| 3] "\\(|
|000018d0| 5b 2d 5f 2b 3d 61 2d 7a | 41 2d 5a 30 2d 39 24 2e |[-_+=a-z|A-Z0-9$.|
|000018e0| 7e 5d 2b 5c 5c 29 20 2b | 5c 5c 28 3c 44 49 52 3e |~]+\\) +|\\(<DIR>|
|000018f0| 5c 5c 7c 5b 30 2d 39 5d | 2b 5c 5c 29 20 2b 22 20 |\\|[0-9]|+\\) +" |
|00001900| 22 5b 20 30 2d 39 5d 5b | 30 2d 39 5d 2d 5b 30 2d |"[ 0-9][|0-9]-[0-|
|00001910| 39 5d 5b 30 2d 39 5d 2d | 5b 30 2d 39 5d 5b 30 2d |9][0-9]-|[0-9][0-|
|00001920| 39 5d 20 22 20 65 66 73 | 2d 64 6f 73 3a 6e 6f 76 |9] " efs|-dos:nov|
|00001930| 65 6c 6c 2d 66 69 6c 65 | 2d 6c 69 6e 65 2d 72 65 |ell-file|-line-re|
|00001940| 67 65 78 70 20 64 6f 73 | 3a 6e 6f 76 65 6c 6c 20 |gexp dos|:novell |
|00001950| 23 5b 28 68 6f 73 74 20 | 75 73 65 72 20 64 69 72 |#[(host |user dir|
|00001960| 20 70 61 74 68 20 26 6f | 70 74 69 6f 6e 61 6c 20 | path &o|ptional |
|00001970| 73 77 69 74 63 68 65 73 | 29 20 22 c0 20 c1 89 89 |switches|) ". ...|
|00001980| 1a 1b 1c 1d c6 20 70 0e | 07 1e 08 1e 09 1e 5c 6e |..... p.|......\n|
|00001990| cb 8e c1 16 07 65 62 88 | cc 0e 0d c1 ce 23 ab c5 |.....eb.|.....#..|
|000019a0| cf 94 cf 95 7b 14 d0 94 | d0 95 7b 89 13 d1 98 ab |....{...|..{.....|
|000019b0| 86 c1 13 ce 12 aa 86 d2 | 0b 21 13 c1 12 0c 89 1e |........|.!......|
|000019c0| 13 3b ab 84 0e 13 aa 84 | d4 0e 13 21 29 1e 13 d5 |.;......|...!)...|
|000019d0| 0e 13 0d 5c 22 1e 16 d7 | 0e 16 d8 5c 6e 0b 44 23 |...\"...|...\n.D#|
|000019e0| 88 2a cf 79 88 aa 33 d9 | 1e 13 d9 3b ab 84 0e 13 |.*.y..3.|...;....|
|000019f0| aa 84 d4 0e 13 21 29 1e | 13 d5 0e 13 0d 5c 22 1e |.....!).|.....\".|
|00001a00| 16 d7 0e 16 d8 da 23 88 | 2a db 1e 13 db 3b ab 84 |......#.|*....;..|
|00001a10| 0e 13 aa 84 d4 0e 13 21 | 29 1e 13 d5 0e 13 0d 5c |.......!|)......\|
|00001a20| 22 1e 16 d7 0e 16 d8 dc | 23 88 2a 0d 2e 08 87 22 |".......|#.*...."|
|00001a30| 20 5b 65 66 73 2d 6d 61 | 6b 65 2d 68 61 73 68 74 | [efs-ma|ke-hasht|
|00001a40| 61 62 6c 65 20 6e 69 6c | 20 64 69 72 2d 70 20 73 |able nil| dir-p s|
|00001a50| 69 7a 65 20 66 69 6c 65 | 20 74 62 6c 20 6d 61 74 |ize file| tbl mat|
|00001a60| 63 68 2d 64 61 74 61 20 | 63 61 73 65 2d 66 6f 6c |ch-data |case-fol|
|00001a70| 64 2d 73 65 61 72 63 68 | 20 63 66 73 20 62 75 66 |d-search| cfs buf|
|00001a80| 66 20 6d 61 74 63 68 2d | 64 61 74 61 20 28 28 62 |f match-|data ((b|
|00001a90| 79 74 65 2d 63 6f 64 65 | 20 22 c0 c1 c2 8f 88 c3 |yte-code| "......|
|00001aa0| 0c 21 87 22 20 5b 6e 69 | 6c 20 28 62 79 74 65 2d |.!." [ni|l (byte-|
|00001ab0| 63 6f 64 65 20 22 8a 08 | 71 88 09 12 29 c3 87 22 |code "..|q...).."|
|00001ac0| 20 5b 62 75 66 66 20 63 | 66 73 20 63 61 73 65 2d | [buff c|fs case-|
|00001ad0| 66 6f 6c 64 2d 73 65 61 | 72 63 68 20 6e 69 6c 5d |fold-sea|rch nil]|
|00001ae0| 20 31 29 20 28 28 65 72 | 72 6f 72 29 29 20 73 74 | 1) ((er|ror)) st|
|00001af0| 6f 72 65 2d 6d 61 74 63 | 68 2d 64 61 74 61 20 6d |ore-matc|h-data m|
|00001b00| 61 74 63 68 2d 64 61 74 | 61 5d 20 33 29 29 20 72 |atch-dat|a] 3)) r|
|00001b10| 65 2d 73 65 61 72 63 68 | 2d 66 6f 72 77 61 72 64 |e-search|-forward|
|00001b20| 20 65 66 73 2d 64 6f 73 | 3a 6e 6f 76 65 6c 6c 2d | efs-dos|:novell-|
|00001b30| 66 69 6c 65 2d 6c 69 6e | 65 2d 72 65 67 65 78 70 |file-lin|e-regexp|
|00001b40| 20 74 20 31 20 32 20 22 | 3c 44 49 52 3e 22 20 73 | t 1 2 "|<DIR>" s|
|00001b50| 74 72 69 6e 67 2d 74 6f | 2d 69 6e 74 20 6b 65 79 |tring-to|-int key|
|00001b60| 20 70 72 69 6e 31 2d 74 | 6f 2d 73 74 72 69 6e 67 | prin1-t|o-string|
|00001b70| 20 69 6e 74 65 72 6e 20 | 73 79 6d 20 70 75 74 20 | intern |sym put |
|00001b80| 76 61 6c 20 22 2e 22 20 | 28 74 29 20 22 2e 2e 22 |val "." |(t) ".."|
|00001b90| 20 28 74 29 5d 20 36 5d | 20 22 5e 2e 20 5b 20 09 | (t)] 6]| "^. [ .|
|00001ba0| 5d 2b 5b 2d 5f 2b 3d 61 | 2d 7a 41 2d 5a 30 2d 39 |]+[-_+=a|-zA-Z0-9|
|00001bb0| 24 7e 5d 2b 5c 5c 2e 65 | 78 65 20 22 20 65 66 73 |$~]+\\.e|xe " efs|
|00001bc0| 2d 64 69 72 65 64 2d 64 | 6f 73 3a 6e 6f 76 65 6c |-dired-d|os:novel|
|00001bd0| 6c 2d 72 65 2d 65 78 65 | 20 65 66 73 2d 64 69 72 |l-re-exe| efs-dir|
|00001be0| 65 64 2d 72 65 2d 65 78 | 65 2d 61 6c 69 73 74 20 |ed-re-ex|e-alist |
|00001bf0| 22 5e 2e 20 5b 20 09 5d | 2b 5b 2d 5f 2b 3d 61 2d |"^. [ .]|+[-_+=a-|
|00001c00| 7a 41 2d 5a 30 2d 39 24 | 7e 5d 2b 20 2b 3c 44 49 |zA-Z0-9$|~]+ +<DI|
|00001c10| 52 3e 22 20 65 66 73 2d | 64 69 72 65 64 2d 64 6f |R>" efs-|dired-do|
|00001c20| 73 3a 6e 6f 76 65 6c 6c | 2d 72 65 2d 64 69 72 20 |s:novell|-re-dir |
|00001c30| 65 66 73 2d 64 69 72 65 | 64 2d 72 65 2d 64 69 72 |efs-dire|d-re-dir|
|00001c40| 2d 61 6c 69 73 74 20 65 | 66 73 2d 64 69 72 65 64 |-alist e|fs-dired|
|00001c50| 2d 69 6e 73 65 72 74 2d | 68 65 61 64 65 72 6c 69 |-insert-|headerli|
|00001c60| 6e 65 20 23 5b 28 64 69 | 72 29 20 22 c0 09 21 87 |ne #[(di|r) "..!.|
|00001c70| 22 20 5b 65 66 73 2d 64 | 69 72 65 64 2d 70 63 2d |" [efs-d|ired-pc-|
|00001c80| 69 6e 73 65 72 74 2d 68 | 65 61 64 65 72 6c 69 6e |insert-h|eaderlin|
|00001c90| 65 20 64 69 72 5d 20 32 | 5d 20 65 66 73 2d 64 69 |e dir] 2|] efs-di|
|00001ca0| 72 65 64 2d 6d 61 6e 75 | 61 6c 2d 6d 6f 76 65 2d |red-manu|al-move-|
|00001cb0| 74 6f 2d 66 69 6c 65 6e | 61 6d 65 20 23 5b 28 26 |to-filen|ame #[(&|
|00001cc0| 6f 70 74 69 6f 6e 61 6c | 20 72 61 69 73 65 2d 65 |optional| raise-e|
|00001cd0| 72 72 6f 72 20 62 6f 6c | 20 65 6f 6c 29 20 22 08 |rror bol| eol) ".|
|00001ce0| ac 88 8a c1 c2 77 88 60 | 29 10 c2 1b 0c ab 85 0c |.....w.`|).......|
|00001cf0| 62 88 aa 84 c5 c2 78 88 | c6 0e 07 08 c8 23 ab 85 |b.....x.|.....#..|
|00001d00| c9 94 62 aa 87 0e 5c 6e | ad 83 cb cc 21 29 87 22 |..b...\n|....!)."|
|00001d10| 20 5b 65 6f 6c 20 22 5e | 0d 5c 6e 22 20 6e 69 6c | [eol "^|.\n" nil|
|00001d20| 20 63 61 73 65 2d 66 6f | 6c 64 2d 73 65 61 72 63 | case-fo|ld-searc|
|00001d30| 68 20 62 6f 6c 20 22 5e | 5c 6e 0d 22 20 72 65 2d |h bol "^|\n." re-|
|00001d40| 73 65 61 72 63 68 2d 66 | 6f 72 77 61 72 64 20 65 |search-f|orward e|
|00001d50| 66 73 2d 64 6f 73 3a 6e | 6f 76 65 6c 6c 2d 66 69 |fs-dos:n|ovell-fi|
|00001d60| 6c 65 2d 6c 69 6e 65 2d | 72 65 67 65 78 70 20 74 |le-line-|regexp t|
|00001d70| 20 30 20 72 61 69 73 65 | 2d 65 72 72 6f 72 20 65 | 0 raise|-error e|
|00001d80| 72 72 6f 72 20 22 4e 6f | 20 66 69 6c 65 20 6f 6e |rror "No| file on|
|00001d90| 20 74 68 69 73 20 6c 69 | 6e 65 22 5d 20 34 5d 20 | this li|ne"] 4] |
|00001da0| 65 66 73 2d 64 69 72 65 | 64 2d 6d 61 6e 75 61 6c |efs-dire|d-manual|
|00001db0| 2d 6d 6f 76 65 2d 74 6f | 2d 65 6e 64 2d 6f 66 2d |-move-to|-end-of-|
|00001dc0| 66 69 6c 65 6e 61 6d 65 | 20 23 5b 28 26 6f 70 74 |filename| #[(&opt|
|00001dd0| 69 6f 6e 61 6c 20 6e 6f | 2d 65 72 72 6f 72 20 62 |ional no|-error b|
|00001de0| 6f 6c 20 65 6f 6c 29 20 | 22 60 18 09 ab a7 5c 6e |ol eol) |"`....\n|
|00001df0| ac a4 0b ae 87 8a c4 c5 | 78 88 60 29 53 66 c6 61 |........|x.`)Sf.a|
|00001e00| ab 94 c7 c8 20 21 ab 88 | c9 ca cb 21 21 88 aa 86 |.... !..|...!!...|
|00001e10| c9 ca cc 21 21 88 cd c5 | 77 88 08 60 55 ab 89 5c |...!!...|w..`U..\|
|00001e20| 6e 3f ad 86 c9 ce 21 aa | 81 60 29 87 22 20 5b 6f |n?....!.|.`)." [o|
|00001e30| 70 6f 69 6e 74 20 73 65 | 6c 65 63 74 69 76 65 2d |point se|lective-|
|00001e40| 64 69 73 70 6c 61 79 20 | 6e 6f 2d 65 72 72 6f 72 |display |no-error|
|00001e50| 20 62 6f 6c 20 22 5e 0d | 5c 6e 22 20 6e 69 6c 20 | bol "^.|\n" nil |
|00001e60| 3f 5c 72 20 64 69 72 65 | 64 2d 73 75 62 64 69 72 |?\r dire|d-subdir|
|00001e70| 2d 68 69 64 64 65 6e 2d | 70 20 64 69 72 65 64 2d |-hidden-|p dired-|
|00001e80| 63 75 72 72 65 6e 74 2d | 64 69 72 65 63 74 6f 72 |current-|director|
|00001e90| 79 20 65 72 72 6f 72 20 | 73 75 62 73 74 69 74 75 |y error |substitu|
|00001ea0| 74 65 2d 63 6f 6d 6d 61 | 6e 64 2d 6b 65 79 73 20 |te-comma|nd-keys |
|00001eb0| 22 46 69 6c 65 20 6c 69 | 6e 65 20 69 73 20 68 69 |"File li|ne is hi|
|00001ec0| 64 64 65 6e 2e 20 54 79 | 70 65 20 5c 5c 5b 64 69 |dden. Ty|pe \\[di|
|00001ed0| 72 65 64 2d 68 69 64 65 | 2d 73 75 62 64 69 72 5d |red-hide|-subdir]|
|00001ee0| 20 74 6f 20 75 6e 68 69 | 64 65 2e 22 20 22 46 69 | to unhi|de." "Fi|
|00001ef0| 6c 65 20 6c 69 6e 65 20 | 69 73 20 6f 6d 69 74 74 |le line |is omitt|
|00001f00| 65 64 2e 20 54 79 70 65 | 20 5c 5c 5b 64 69 72 65 |ed. Type| \\[dire|
|00001f10| 64 2d 6f 6d 69 74 2d 74 | 6f 67 67 6c 65 5d 20 74 |d-omit-t|oggle] t|
|00001f20| 6f 20 75 6e 2d 6f 6d 69 | 74 2e 22 20 22 2d 5f 2b |o un-omi|t." "-_+|
|00001f30| 3d 61 2d 7a 41 2d 5a 30 | 2d 39 2e 24 7e 22 20 22 |=a-zA-Z0|-9.$~" "|
|00001f40| 4e 6f 20 66 69 6c 65 20 | 6f 6e 20 74 68 69 73 20 |No file |on this |
|00001f50| 6c 69 6e 65 22 5d 20 33 | 5d 20 65 66 73 2d 64 69 |line"] 3|] efs-di|
|00001f60| 72 65 64 2d 66 69 78 75 | 70 2d 6c 69 73 74 69 6e |red-fixu|p-listin|
|00001f70| 67 20 23 5b 28 66 69 6c | 65 20 70 61 74 68 20 26 |g #[(fil|e path &|
|00001f80| 6f 70 74 69 6f 6e 61 6c | 20 73 77 69 74 63 68 65 |optional| switche|
|00001f90| 73 20 77 69 6c 64 63 61 | 72 64 29 20 22 65 62 88 |s wildca|rd) "eb.|
|00001fa0| c0 09 c2 c3 23 ab 8d c4 | 79 88 60 c4 94 7c 88 c5 |....#...|y.`..|..|
|00001fb0| 79 88 aa 6c c6 c5 65 64 | 62 88 c7 79 88 60 23 87 |y..l..ed|b..y.`#.|
|00001fc0| 22 20 5b 72 65 2d 73 65 | 61 72 63 68 2d 66 6f 72 |" [re-se|arch-for|
|00001fd0| 77 61 72 64 20 65 66 73 | 2d 64 6f 73 3a 6e 6f 76 |ward efs|-dos:nov|
|00001fe0| 65 6c 6c 2d 66 69 6c 65 | 2d 6c 69 6e 65 2d 72 65 |ell-file|-line-re|
|00001ff0| 67 65 78 70 20 6e 69 6c | 20 74 20 30 20 31 20 73 |gexp nil| t 0 1 s|
|00002000| 6f 72 74 2d 66 69 65 6c | 64 73 20 2d 31 5d 20 34 |ort-fiel|ds -1] 4|
|00002010| 5d 20 65 66 73 2d 64 69 | 72 65 64 2d 6c 73 2d 74 |] efs-di|red-ls-t|
|00002020| 72 69 6d 20 23 5b 6e 69 | 6c 20 22 65 62 88 c0 19 |rim #[ni|l "eb...|
|00002030| c2 79 88 c3 c4 21 ad 85 | c5 94 c5 95 7c 29 87 22 |.y...!..|....|)."|
|00002040| 20 5b 6e 69 6c 20 63 61 | 73 65 2d 66 6f 6c 64 2d | [nil ca|se-fold-|
|00002050| 73 65 61 72 63 68 20 31 | 20 6c 6f 6f 6b 69 6e 67 |search 1| looking|
|00002060| 2d 61 74 20 22 20 5b 30 | 2d 39 5d 2b 20 46 69 6c |-at " [0|-9]+ Fil|
|00002070| 65 28 73 29 5c 6e 22 20 | 30 5d 20 32 5d 20 64 6f |e(s)\n" |0] 2] do|
|00002080| 73 3a 66 74 70 20 23 5b | 28 68 6f 73 74 20 75 73 |s:ftp #[|(host us|
|00002090| 65 72 20 64 69 72 20 70 | 61 74 68 20 26 6f 70 74 |er dir p|ath &opt|
|000020a0| 69 6f 6e 61 6c 20 73 77 | 69 74 63 68 65 73 29 20 |ional sw|itches) |
|000020b0| 22 c0 20 c1 89 89 1a 1b | 1c 1d c6 20 70 0e 07 1e |". .....|... p...|
|000020c0| 08 1e 09 1e 5c 6e cb 8e | c1 16 07 65 62 88 65 62 |....\n..|...eb.eb|
|000020d0| 88 cc 0e 0d 21 ab c5 ce | 94 ce 95 7b 14 cf 94 cf |....!...|...{....|
|000020e0| 95 7b 89 13 d0 98 ab 86 | c1 13 d1 12 aa 86 d2 0b |.{......|........|
|000020f0| 21 13 c1 12 0c 89 1e 13 | 3b ab 84 0e 13 aa 84 d4 |!.......|;.......|
|00002100| 0e 13 21 29 1e 13 d5 0e | 13 0d 5c 22 1e 16 d7 0e |..!)....|..\"....|
|00002110| 16 d8 5c 6e 0b 44 23 88 | 2a cf 79 88 aa 35 d9 1e |..\n.D#.|*.y..5..|
|00002120| 13 d9 3b ab 84 0e 13 aa | 84 d4 0e 13 21 29 1e 13 |..;.....|....!)..|
|00002130| d5 0e 13 0d 5c 22 1e 16 | d7 0e 16 d8 da 23 88 2a |....\"..|.....#.*|
|00002140| db 1e 13 db 3b ab 84 0e | 13 aa 84 d4 0e 13 21 29 |....;...|......!)|
|00002150| 1e 13 d5 0e 13 0d 5c 22 | 1e 16 d7 0e 16 d8 dc 23 |......\"|.......#|
|00002160| 88 2a 0d 2e 08 87 22 20 | 5b 65 66 73 2d 6d 61 6b |.*...." |[efs-mak|
|00002170| 65 2d 68 61 73 68 74 61 | 62 6c 65 20 6e 69 6c 20 |e-hashta|ble nil |
|00002180| 64 69 72 2d 70 20 73 69 | 7a 65 20 66 69 6c 65 20 |dir-p si|ze file |
|00002190| 74 62 6c 20 6d 61 74 63 | 68 2d 64 61 74 61 20 63 |tbl matc|h-data c|
|000021a0| 61 73 65 2d 66 6f 6c 64 | 2d 73 65 61 72 63 68 20 |ase-fold|-search |
|000021b0| 63 66 73 20 62 75 66 66 | 20 6d 61 74 63 68 2d 64 |cfs buff| match-d|
|000021c0| 61 74 61 20 28 28 62 79 | 74 65 2d 63 6f 64 65 20 |ata ((by|te-code |
|000021d0| 22 c0 c1 c2 8f 88 c3 0c | 21 87 22 20 5b 6e 69 6c |".......|!." [nil|
|000021e0| 20 28 62 79 74 65 2d 63 | 6f 64 65 20 22 8a 08 71 | (byte-c|ode "..q|
|000021f0| 88 09 12 29 c3 87 22 20 | 5b 62 75 66 66 20 63 66 |...).." |[buff cf|
|00002200| 73 20 63 61 73 65 2d 66 | 6f 6c 64 2d 73 65 61 72 |s case-f|old-sear|
|00002210| 63 68 20 6e 69 6c 5d 20 | 31 29 20 28 28 65 72 72 |ch nil] |1) ((err|
|00002220| 6f 72 29 29 20 73 74 6f | 72 65 2d 6d 61 74 63 68 |or)) sto|re-match|
|00002230| 2d 64 61 74 61 20 6d 61 | 74 63 68 2d 64 61 74 61 |-data ma|tch-data|
|00002240| 5d 20 33 29 29 20 6c 6f | 6f 6b 69 6e 67 2d 61 74 |] 3)) lo|oking-at|
|00002250| 20 65 66 73 2d 64 6f 73 | 3a 66 74 70 2d 66 69 6c | efs-dos|:ftp-fil|
|00002260| 65 2d 6c 69 6e 65 2d 72 | 65 67 65 78 70 20 32 20 |e-line-r|egexp 2 |
|00002270| 31 20 22 3c 64 69 72 3e | 22 20 74 20 73 74 72 69 |1 "<dir>|" t stri|
|00002280| 6e 67 2d 74 6f 2d 69 6e | 74 20 6b 65 79 20 70 72 |ng-to-in|t key pr|
|00002290| 69 6e 31 2d 74 6f 2d 73 | 74 72 69 6e 67 20 69 6e |in1-to-s|tring in|
|000022a0| 74 65 72 6e 20 73 79 6d | 20 70 75 74 20 76 61 6c |tern sym| put val|
|000022b0| 20 22 2e 22 20 28 74 29 | 20 22 2e 2e 22 20 28 74 | "." (t)| ".." (t|
|000022c0| 29 5d 20 36 5d 20 22 5e | 2e 20 5b 20 09 5d 2a 5b |)] 6] "^|. [ .]*[|
|000022d0| 30 2d 39 5d 2b 20 2b 5b | 2d 5f 2b 3d 61 2d 7a 41 |0-9]+ +[|-_+=a-zA|
|000022e0| 2d 5a 30 2d 39 24 7e 5d | 2b 5c 5c 2e 65 78 65 20 |-Z0-9$~]|+\\.exe |
|000022f0| 22 20 65 66 73 2d 64 69 | 72 65 64 2d 64 6f 73 3a |" efs-di|red-dos:|
|00002300| 66 74 70 2d 72 65 2d 65 | 78 65 20 22 5e 2e 20 5b |ftp-re-e|xe "^. [|
|00002310| 20 09 5d 2a 3c 64 69 72 | 3e 20 22 20 65 66 73 2d | .]*<dir|> " efs-|
|00002320| 64 69 72 65 64 2d 64 6f | 73 3a 66 74 70 2d 72 65 |dired-do|s:ftp-re|
|00002330| 2d 64 69 72 20 23 5b 28 | 64 69 72 29 20 22 c0 09 |-dir #[(|dir) "..|
|00002340| 21 87 22 20 5b 65 66 73 | 2d 64 69 72 65 64 2d 70 |!." [efs|-dired-p|
|00002350| 63 2d 69 6e 73 65 72 74 | 2d 68 65 61 64 65 72 6c |c-insert|-headerl|
|00002360| 69 6e 65 20 64 69 72 5d | 20 32 5d 20 23 5b 28 26 |ine dir]| 2] #[(&|
|00002370| 6f 70 74 69 6f 6e 61 6c | 20 72 61 69 73 65 2d 65 |optional| raise-e|
|00002380| 72 72 6f 72 20 62 6f 6c | 20 65 6f 6c 29 20 22 08 |rror bol| eol) ".|
|00002390| ac 88 8a c1 c2 77 88 60 | 29 10 c2 1b 0c ab 85 0c |.....w.`|).......|
|000023a0| 62 88 aa 84 c5 c2 78 88 | c6 0e 07 08 c8 23 ab 85 |b.....x.|.....#..|
|000023b0| c9 95 62 aa 87 0e 5c 6e | ad 83 cb cc 21 29 87 22 |..b...\n|....!)."|
|000023c0| 20 5b 65 6f 6c 20 22 5e | 0d 5c 6e 22 20 6e 69 6c | [eol "^|.\n" nil|
|000023d0| 20 63 61 73 65 2d 66 6f | 6c 64 2d 73 65 61 72 63 | case-fo|ld-searc|
|000023e0| 68 20 62 6f 6c 20 22 5e | 5c 6e 0d 22 20 72 65 2d |h bol "^|\n." re-|
|000023f0| 73 65 61 72 63 68 2d 66 | 6f 72 77 61 72 64 20 65 |search-f|orward e|
|00002400| 66 73 2d 64 6f 73 3a 66 | 74 70 2d 66 69 6c 65 2d |fs-dos:f|tp-file-|
|00002410| 6c 69 6e 65 2d 72 65 67 | 65 78 70 20 74 20 32 20 |line-reg|exp t 2 |
|00002420| 72 61 69 73 65 2d 65 72 | 72 6f 72 20 65 72 72 6f |raise-er|ror erro|
|00002430| 72 20 22 4e 6f 20 66 69 | 6c 65 20 6f 6e 20 74 68 |r "No fi|le on th|
|00002440| 69 73 20 6c 69 6e 65 22 | 5d 20 34 5d 20 23 5b 28 |is line"|] 4] #[(|
|00002450| 26 6f 70 74 69 6f 6e 61 | 6c 20 6e 6f 2d 65 72 72 |&optiona|l no-err|
|00002460| 6f 72 20 62 6f 6c 20 65 | 6f 6c 29 20 22 60 18 09 |or bol e|ol) "`..|
|00002470| ab a7 5c 6e ac a4 0b ae | 87 8a c4 c5 78 88 60 29 |..\n....|....x.`)|
|00002480| 53 66 c6 61 ab 94 c7 c8 | 20 21 ab 88 c9 ca cb 21 |Sf.a....| !.....!|
|00002490| 21 88 aa 86 c9 ca cc 21 | 21 88 cd 0b 78 88 08 60 |!......!|!...x..`|
|000024a0| 55 ab 89 5c 6e 3f ad 86 | c9 ce 21 aa 81 60 29 87 |U..\n?..|..!..`).|
|000024b0| 22 20 5b 6f 70 6f 69 6e | 74 20 73 65 6c 65 63 74 |" [opoin|t select|
|000024c0| 69 76 65 2d 64 69 73 70 | 6c 61 79 20 6e 6f 2d 65 |ive-disp|lay no-e|
|000024d0| 72 72 6f 72 20 62 6f 6c | 20 22 5e 0d 5c 6e 22 20 |rror bol| "^.\n" |
|000024e0| 6e 69 6c 20 3f 5c 72 20 | 64 69 72 65 64 2d 73 75 |nil ?\r |dired-su|
|000024f0| 62 64 69 72 2d 68 69 64 | 64 65 6e 2d 70 20 64 69 |bdir-hid|den-p di|
|00002500| 72 65 64 2d 63 75 72 72 | 65 6e 74 2d 64 69 72 65 |red-curr|ent-dire|
|00002510| 63 74 6f 72 79 20 65 72 | 72 6f 72 20 73 75 62 73 |ctory er|ror subs|
|00002520| 74 69 74 75 74 65 2d 63 | 6f 6d 6d 61 6e 64 2d 6b |titute-c|ommand-k|
|00002530| 65 79 73 20 22 46 69 6c | 65 20 6c 69 6e 65 20 69 |eys "Fil|e line i|
|00002540| 73 20 68 69 64 64 65 6e | 2e 20 54 79 70 65 20 5c |s hidden|. Type \|
|00002550| 5c 5b 64 69 72 65 64 2d | 68 69 64 65 2d 73 75 62 |\[dired-|hide-sub|
|00002560| 64 69 72 5d 20 74 6f 20 | 75 6e 68 69 64 65 2e 22 |dir] to |unhide."|
|00002570| 20 22 46 69 6c 65 20 6c | 69 6e 65 20 69 73 20 6f | "File l|ine is o|
|00002580| 6d 69 74 74 65 64 2e 20 | 54 79 70 65 20 5c 5c 5b |mitted. |Type \\[|
|00002590| 64 69 72 65 64 2d 6f 6d | 69 74 2d 74 6f 67 67 6c |dired-om|it-toggl|
|000025a0| 65 5d 20 74 6f 20 75 6e | 2d 6f 6d 69 74 2e 22 20 |e] to un|-omit." |
|000025b0| 22 2d 5f 2b 3d 61 2d 7a | 41 2d 5a 30 2d 39 2e 24 |"-_+=a-z|A-Z0-9.$|
|000025c0| 7e 22 20 22 4e 6f 20 66 | 69 6c 65 20 6f 6e 20 74 |~" "No f|ile on t|
|000025d0| 68 69 73 20 6c 69 6e 65 | 22 5d 20 33 5d 20 64 6f |his line|"] 3] do|
|000025e0| 73 3a 6e 63 73 61 20 23 | 5b 28 68 6f 73 74 20 75 |s:ncsa #|[(host u|
|000025f0| 73 65 72 20 64 69 72 20 | 70 61 74 68 20 26 6f 70 |ser dir |path &op|
|00002600| 74 69 6f 6e 61 6c 20 73 | 77 69 74 63 68 65 73 29 |tional s|witches)|
|00002610| 20 22 c0 89 89 89 89 19 | 1a 1b 1c 1d c6 20 70 0e | "......|..... p.|
|00002620| 07 1e 08 1e 09 1e 5c 6e | cb 8e c0 16 07 65 62 88 |......\n|.....eb.|
|00002630| cc 0e 0d 8a ce 79 88 60 | 29 89 11 cf 23 ab cb ce |.....y.`|)...#...|
|00002640| 94 ce 95 7b 14 d0 94 d0 | 95 7b 89 13 d1 98 ab 86 |...{....|.{......|
|00002650| c0 13 cf 12 aa 86 d2 0b | 21 13 c0 12 0c 89 1e 13 |........|!.......|
|00002660| 3b ab 84 0e 13 aa 84 d4 | 0e 13 21 29 1e 13 d5 0e |;.......|..!)....|
|00002670| 13 0d ae 84 d6 20 89 15 | 5c 22 1e 17 d8 0e 17 d9 |..... ..|\"......|
|00002680| 5c 6e 0b 44 23 88 2a 09 | 62 88 aa 26 0d ac 87 da |\n.D#.*.|b..&....|
|00002690| db 0e 1c 5c 22 ab c2 dd | 1e 13 dd 3b ab 84 0e 13 |...\"...|...;....|
|000026a0| aa 84 d4 0e 13 21 29 1e | 13 d5 0e 13 0d 5c 22 1e |.....!).|.....\".|
|000026b0| 17 d8 0e 17 d9 de 23 88 | 2a df 1e 13 df 3b ab 84 |......#.|*....;..|
|000026c0| 0e 13 aa 84 d4 0e 13 21 | 29 1e 13 d5 0e 13 0d 5c |.......!|)......\|
|000026d0| 22 1e 17 d8 0e 17 d9 e0 | 23 88 2a 0d 2e 09 87 22 |".......|#.*...."|
|000026e0| 20 5b 6e 69 6c 20 6e 65 | 78 74 20 64 69 72 2d 70 | [nil ne|xt dir-p|
|000026f0| 20 73 69 7a 65 20 66 69 | 6c 65 20 74 62 6c 20 6d | size fi|le tbl m|
|00002700| 61 74 63 68 2d 64 61 74 | 61 20 63 61 73 65 2d 66 |atch-dat|a case-f|
|00002710| 6f 6c 64 2d 73 65 61 72 | 63 68 20 63 66 73 20 62 |old-sear|ch cfs b|
|00002720| 75 66 66 20 6d 61 74 63 | 68 2d 64 61 74 61 20 28 |uff matc|h-data (|
|00002730| 28 62 79 74 65 2d 63 6f | 64 65 20 22 c0 c1 c2 8f |(byte-co|de "....|
|00002740| 88 c3 0c 21 87 22 20 5b | 6e 69 6c 20 28 62 79 74 |...!." [|nil (byt|
|00002750| 65 2d 63 6f 64 65 20 22 | 8a 08 71 88 09 12 29 c3 |e-code "|..q...).|
|00002760| 87 22 20 5b 62 75 66 66 | 20 63 66 73 20 63 61 73 |." [buff| cfs cas|
|00002770| 65 2d 66 6f 6c 64 2d 73 | 65 61 72 63 68 20 6e 69 |e-fold-s|earch ni|
|00002780| 6c 5d 20 31 29 20 28 28 | 65 72 72 6f 72 29 29 20 |l] 1) ((|error)) |
|00002790| 73 74 6f 72 65 2d 6d 61 | 74 63 68 2d 64 61 74 61 |store-ma|tch-data|
|000027a0| 20 6d 61 74 63 68 2d 64 | 61 74 61 5d 20 33 29 29 | match-d|ata] 3))|
|000027b0| 20 72 65 2d 73 65 61 72 | 63 68 2d 66 6f 72 77 61 | re-sear|ch-forwa|
|000027c0| 72 64 20 65 66 73 2d 64 | 6f 73 3a 6e 63 73 61 2d |rd efs-d|os:ncsa-|
|000027d0| 66 69 6c 65 2d 6c 69 6e | 65 2d 72 65 67 65 78 70 |file-lin|e-regexp|
|000027e0| 20 31 20 74 20 32 20 22 | 3c 44 49 52 3e 22 20 73 | 1 t 2 "|<DIR>" s|
|000027f0| 74 72 69 6e 67 2d 74 6f | 2d 69 6e 74 20 6b 65 79 |tring-to|-int key|
|00002800| 20 70 72 69 6e 31 2d 74 | 6f 2d 73 74 72 69 6e 67 | prin1-t|o-string|
|00002810| 20 69 6e 74 65 72 6e 20 | 65 66 73 2d 6d 61 6b 65 | intern |efs-make|
|00002820| 2d 68 61 73 68 74 61 62 | 6c 65 20 73 79 6d 20 70 |-hashtab|le sym p|
|00002830| 75 74 20 76 61 6c 20 73 | 74 72 69 6e 67 2d 6d 61 |ut val s|tring-ma|
|00002840| 74 63 68 20 22 5e 2f 5c | 5c 28 5b 41 2d 5a 61 2d |tch "^/\|\([A-Za-|
|00002850| 7a 30 2d 39 5d 3a 2f 5c | 5c 29 3f 24 22 20 64 69 |z0-9]:/\|\)?$" di|
|00002860| 72 20 22 2e 22 20 28 74 | 29 20 22 2e 2e 22 20 28 |r "." (t|) ".." (|
|00002870| 74 29 5d 20 36 5d 20 65 | 66 73 2d 64 69 72 65 64 |t)] 6] e|fs-dired|
|00002880| 2d 64 6f 73 3a 6e 63 73 | 61 2d 72 65 2d 65 78 65 |-dos:ncs|a-re-exe|
|00002890| 20 65 66 73 2d 64 69 72 | 65 64 2d 64 6f 73 3a 6e | efs-dir|ed-dos:n|
|000028a0| 63 73 61 2d 72 65 2d 64 | 69 72 20 23 5b 28 64 69 |csa-re-d|ir #[(di|
|000028b0| 72 29 20 22 c0 09 21 87 | 22 20 5b 65 66 73 2d 64 |r) "..!.|" [efs-d|
|000028c0| 69 72 65 64 2d 70 63 2d | 69 6e 73 65 72 74 2d 68 |ired-pc-|insert-h|
|000028d0| 65 61 64 65 72 6c 69 6e | 65 20 64 69 72 5d 20 32 |eaderlin|e dir] 2|
|000028e0| 5d 20 23 5b 28 26 6f 70 | 74 69 6f 6e 61 6c 20 72 |] #[(&op|tional r|
|000028f0| 61 69 73 65 2d 65 72 72 | 6f 72 20 62 6f 6c 20 65 |aise-err|or bol e|
|00002900| 6f 6c 29 20 22 08 ac 88 | 8a c1 c2 77 88 60 29 10 |ol) "...|...w.`).|
|00002910| c2 1b 0c ab 85 0c 62 88 | aa 84 c5 c2 78 88 c6 c7 |......b.|....x...|
|00002920| 08 c8 23 ab 85 c9 94 62 | aa 87 0e 5c 6e ad 83 cb |..#....b|...\n...|
|00002930| cc 21 29 87 22 20 5b 65 | 6f 6c 20 22 5e 0d 5c 6e |.!)." [e|ol "^.\n|
|00002940| 22 20 6e 69 6c 20 63 61 | 73 65 2d 66 6f 6c 64 2d |" nil ca|se-fold-|
|00002950| 73 65 61 72 63 68 20 62 | 6f 6c 20 22 5e 5c 6e 0d |search b|ol "^\n.|
|00002960| 22 20 72 65 2d 73 65 61 | 72 63 68 2d 66 6f 72 77 |" re-sea|rch-forw|
|00002970| 61 72 64 20 22 5b 2d 5f | 2b 3d 61 2d 7a 41 2d 5a |ard "[-_|+=a-zA-Z|
|00002980| 30 2d 39 24 2e 7e 5d 2b | 20 2b 5c 5c 28 3c 44 49 |0-9$.~]+| +\\(<DI|
|00002990| 52 3e 5c 5c 7c 5b 30 2d | 39 5d 5c 5c 29 22 20 74 |R>\\|[0-|9]\\)" t|
|000029a0| 20 30 20 72 61 69 73 65 | 2d 65 72 72 6f 72 20 65 | 0 raise|-error e|
|000029b0| 72 72 6f 72 20 22 4e 6f | 20 66 69 6c 65 20 6f 6e |rror "No| file on|
|000029c0| 20 74 68 69 73 20 6c 69 | 6e 65 22 5d 20 34 5d 20 | this li|ne"] 4] |
|000029d0| 23 5b 28 26 6f 70 74 69 | 6f 6e 61 6c 20 6e 6f 2d |#[(&opti|onal no-|
|000029e0| 65 72 72 6f 72 20 62 6f | 6c 20 65 6f 6c 29 20 22 |error bo|l eol) "|
|000029f0| 60 18 09 ab a7 5c 6e ac | a4 0b ae 87 8a c4 c5 78 |`....\n.|.......x|
|00002a00| 88 60 29 53 66 c6 61 ab | 94 c7 c8 20 21 ab 88 c9 |.`)Sf.a.|... !...|
|00002a10| ca cb 21 21 88 aa 86 c9 | ca cc 21 21 88 cd c5 77 |..!!....|..!!...w|
|00002a20| 88 08 60 55 ab 89 5c 6e | 3f ad 86 c9 ce 21 aa 81 |..`U..\n|?....!..|
|00002a30| 60 29 87 22 20 5b 6f 70 | 6f 69 6e 74 20 73 65 6c |`)." [op|oint sel|
|00002a40| 65 63 74 69 76 65 2d 64 | 69 73 70 6c 61 79 20 6e |ective-d|isplay n|
|00002a50| 6f 2d 65 72 72 6f 72 20 | 62 6f 6c 20 22 5e 0d 5c |o-error |bol "^.\|
|00002a60| 6e 22 20 6e 69 6c 20 3f | 5c 72 20 64 69 72 65 64 |n" nil ?|\r dired|
|00002a70| 2d 73 75 62 64 69 72 2d | 68 69 64 64 65 6e 2d 70 |-subdir-|hidden-p|
|00002a80| 20 64 69 72 65 64 2d 63 | 75 72 72 65 6e 74 2d 64 | dired-c|urrent-d|
|00002a90| 69 72 65 63 74 6f 72 79 | 20 65 72 72 6f 72 20 73 |irectory| error s|
|00002aa0| 75 62 73 74 69 74 75 74 | 65 2d 63 6f 6d 6d 61 6e |ubstitut|e-comman|
|00002ab0| 64 2d 6b 65 79 73 20 22 | 46 69 6c 65 20 6c 69 6e |d-keys "|File lin|
|00002ac0| 65 20 69 73 20 68 69 64 | 64 65 6e 2e 20 54 79 70 |e is hid|den. Typ|
|00002ad0| 65 20 5c 5c 5b 64 69 72 | 65 64 2d 68 69 64 65 2d |e \\[dir|ed-hide-|
|00002ae0| 73 75 62 64 69 72 5d 20 | 74 6f 20 75 6e 68 69 64 |subdir] |to unhid|
|00002af0| 65 2e 22 20 22 46 69 6c | 65 20 6c 69 6e 65 20 69 |e." "Fil|e line i|
|00002b00| 73 20 6f 6d 69 74 74 65 | 64 2e 20 54 79 70 65 20 |s omitte|d. Type |
|00002b10| 5c 5c 5b 64 69 72 65 64 | 2d 6f 6d 69 74 2d 74 6f |\\[dired|-omit-to|
|00002b20| 67 67 6c 65 5d 20 74 6f | 20 75 6e 2d 6f 6d 69 74 |ggle] to| un-omit|
|00002b30| 2e 22 20 22 2d 5f 2b 3d | 61 2d 7a 41 2d 5a 30 2d |." "-_+=|a-zA-Z0-|
|00002b40| 39 2e 24 7e 22 20 22 4e | 6f 20 66 69 6c 65 20 6f |9.$~" "N|o file o|
|00002b50| 6e 20 74 68 69 73 20 6c | 69 6e 65 22 5d 20 33 5d |n this l|ine"] 3]|
|00002b60| 20 23 5b 28 66 69 6c 65 | 20 70 61 74 68 20 26 6f | #[(file| path &o|
|00002b70| 70 74 69 6f 6e 61 6c 20 | 73 77 69 74 63 68 65 73 |ptional |switches|
|00002b80| 20 77 69 6c 64 63 61 72 | 64 29 20 22 c0 19 65 62 | wildcar|d) "..eb|
|00002b90| 88 c2 0b 8a c4 79 88 60 | 29 89 11 c5 23 ab 90 c6 |.....y.`|)...#...|
|00002ba0| 94 62 88 60 c6 79 88 60 | 7c 88 09 62 88 aa 62 29 |.b.`.y.`||..b..b)|
|00002bb0| c7 c4 65 64 23 87 22 20 | 5b 6e 69 6c 20 62 6f 6e |..ed#." |[nil bon|
|00002bc0| 6c 20 72 65 2d 73 65 61 | 72 63 68 2d 66 6f 72 77 |l re-sea|rch-forw|
|00002bd0| 61 72 64 20 65 66 73 2d | 64 6f 73 3a 6e 63 73 61 |ard efs-|dos:ncsa|
|00002be0| 2d 66 69 6c 65 2d 6c 69 | 6e 65 2d 72 65 67 65 78 |-file-li|ne-regex|
|00002bf0| 70 20 31 20 74 20 30 20 | 73 6f 72 74 2d 66 69 65 |p 1 t 0 |sort-fie|
|00002c00| 6c 64 73 5d 20 34 5d 20 | 23 5b 6e 69 6c 20 22 65 |lds] 4] |#[nil "e|
|00002c10| 62 88 c0 09 c2 c3 23 ad | 84 65 c4 94 7c 87 22 20 |b.....#.|.e..|." |
|00002c20| 5b 72 65 2d 73 65 61 72 | 63 68 2d 66 6f 72 77 61 |[re-sear|ch-forwa|
|00002c30| 72 64 20 65 66 73 2d 64 | 6f 73 3a 6e 63 73 61 2d |rd efs-d|os:ncsa-|
|00002c40| 66 69 6c 65 2d 6c 69 6e | 65 2d 72 65 67 65 78 70 |file-lin|e-regexp|
|00002c50| 20 6e 69 6c 20 74 20 30 | 5d 20 34 5d 20 22 5c 5c | nil t 0|] 4] "\\|
|00002c60| 2e 22 20 65 66 73 2d 64 | 6f 73 3a 6d 69 63 72 6f |." efs-d|os:micro|
|00002c70| 73 6f 66 74 2d 76 61 6c | 69 64 2d 6c 69 73 74 69 |soft-val|id-listi|
|00002c80| 6e 67 2d 72 65 67 65 78 | 70 20 64 6f 73 3a 6d 69 |ng-regex|p dos:mi|
|00002c90| 63 72 6f 73 6f 66 74 20 | 23 5b 28 68 6f 73 74 20 |crosoft |#[(host |
|00002ca0| 75 73 65 72 20 64 69 72 | 20 70 61 74 68 20 26 6f |user dir| path &o|
|00002cb0| 70 74 69 6f 6e 61 6c 20 | 73 77 69 74 63 68 65 73 |ptional |switches|
|00002cc0| 29 20 22 65 62 88 c0 20 | 70 09 1a 1b 1c c5 8e c6 |) "eb.. |p.......|
|00002cd0| 11 c7 c8 0e 09 5c 22 ac | 89 ca 0e 0b c6 cc 23 85 |.....\".|......#.|
|00002ce0| c7 00 cd 20 c6 89 1e 0e | 1e 0f 1e 10 65 62 88 ca |... ....|....eb..|
|00002cf0| 0e 11 c6 cc 23 ab cd d2 | 94 d2 95 7b 89 16 0f d3 |....#...|...{....|
|00002d00| 98 ab 88 c6 16 0f cc 16 | 0e aa 89 d4 0e 0f 21 16 |........|......!.|
|00002d10| 0f c6 16 0e 60 c6 7f 88 | 60 7b 89 1e 15 3b ab 84 |....`...|`{...;..|
|00002d20| 0e 15 aa 84 d6 0e 15 21 | 29 1e 15 d7 0e 15 0e 10 |.......!|).......|
|00002d30| 5c 22 1e 18 d9 0e 18 da | 0e 0e 0e 0f 44 23 88 2a |\"......|....D#.*|
|00002d40| d2 79 88 aa 2b db 1e 15 | db 3b ab 84 0e 15 aa 84 |.y..+...|.;......|
|00002d50| d6 0e 15 21 29 1e 15 d7 | 0e 15 0e 10 5c 22 1e 18 |...!)...|....\"..|
|00002d60| d9 0e 18 da dc 23 88 2a | dd 1e 15 dd 3b ab 84 0e |.....#.*|....;...|
|00002d70| 15 aa 84 d6 0e 15 21 29 | 1e 15 d7 0e 15 0e 10 5c |......!)|.......\|
|00002d80| 22 1e 18 d9 0e 18 da de | 23 88 2a 0e 10 2b 2c 87 |".......|#.*..+,.|
|00002d90| 22 20 5b 6d 61 74 63 68 | 2d 64 61 74 61 20 63 61 |" [match|-data ca|
|00002da0| 73 65 2d 66 6f 6c 64 2d | 73 65 61 72 63 68 20 63 |se-fold-|search c|
|00002db0| 66 73 20 62 75 66 66 20 | 6d 61 74 63 68 2d 64 61 |fs buff |match-da|
|00002dc0| 74 61 20 28 28 62 79 74 | 65 2d 63 6f 64 65 20 22 |ta ((byt|e-code "|
|00002dd0| c0 c1 c2 8f 88 c3 0c 21 | 87 22 20 5b 6e 69 6c 20 |.......!|." [nil |
|00002de0| 28 62 79 74 65 2d 63 6f | 64 65 20 22 8a 08 71 88 |(byte-co|de "..q.|
|00002df0| 09 12 29 c3 87 22 20 5b | 62 75 66 66 20 63 66 73 |..).." [|buff cfs|
|00002e00| 20 63 61 73 65 2d 66 6f | 6c 64 2d 73 65 61 72 63 | case-fo|ld-searc|
|00002e10| 68 20 6e 69 6c 5d 20 31 | 29 20 28 28 65 72 72 6f |h nil] 1|) ((erro|
|00002e20| 72 29 29 20 73 74 6f 72 | 65 2d 6d 61 74 63 68 2d |r)) stor|e-match-|
|00002e30| 64 61 74 61 20 6d 61 74 | 63 68 2d 64 61 74 61 5d |data mat|ch-data]|
|00002e40| 20 33 29 29 20 6e 69 6c | 20 73 74 72 69 6e 67 2d | 3)) nil| string-|
|00002e50| 6d 61 74 63 68 20 22 5e | 2f 2e 3a 2f 24 22 20 64 |match "^|/.:/$" d|
|00002e60| 69 72 20 72 65 2d 73 65 | 61 72 63 68 2d 66 6f 72 |ir re-se|arch-for|
|00002e70| 77 61 72 64 20 65 66 73 | 2d 64 6f 73 3a 6d 69 63 |ward efs|-dos:mic|
|00002e80| 72 6f 73 6f 66 74 2d 76 | 61 6c 69 64 2d 6c 69 73 |rosoft-v|alid-lis|
|00002e90| 74 69 6e 67 2d 72 65 67 | 65 78 70 20 74 20 65 66 |ting-reg|exp t ef|
|00002ea0| 73 2d 6d 61 6b 65 2d 68 | 61 73 68 74 61 62 6c 65 |s-make-h|ashtable|
|00002eb0| 20 64 69 72 2d 70 20 73 | 69 7a 65 20 74 62 6c 20 | dir-p s|ize tbl |
|00002ec0| 65 66 73 2d 64 6f 73 3a | 6d 69 63 72 6f 73 6f 66 |efs-dos:|microsof|
|00002ed0| 74 2d 66 69 6c 65 2d 6c | 69 6e 65 2d 72 65 67 65 |t-file-l|ine-rege|
|00002ee0| 78 70 20 31 20 22 3c 44 | 49 52 3e 22 20 73 74 72 |xp 1 "<D|IR>" str|
|00002ef0| 69 6e 67 2d 74 6f 2d 69 | 6e 74 20 6b 65 79 20 70 |ing-to-i|nt key p|
|00002f00| 72 69 6e 31 2d 74 6f 2d | 73 74 72 69 6e 67 20 69 |rin1-to-|string i|
|00002f10| 6e 74 65 72 6e 20 73 79 | 6d 20 70 75 74 20 76 61 |ntern sy|m put va|
|00002f20| 6c 20 22 2e 22 20 28 74 | 29 20 22 2e 2e 22 20 28 |l "." (t|) ".." (|
|00002f30| 74 29 5d 20 36 5d 20 22 | 5e 5b 5e 5c 6e 5d 2b 20 |t)] 6] "|^[^\n]+ |
|00002f40| 2b 5b 2d 5f 2b 3d 61 2d | 7a 41 2d 5a 30 2d 39 24 |+[-_+=a-|zA-Z0-9$|
|00002f50| 7e 5d 2b 5c 5c 2e 5c 5c | 28 45 58 45 5c 5c 7c 65 |~]+\\.\\|(EXE\\|e|
|00002f60| 78 65 5c 5c 29 24 22 20 | 65 66 73 2d 64 69 72 65 |xe\\)$" |efs-dire|
|00002f70| 64 2d 64 6f 73 3a 6d 69 | 63 72 6f 73 6f 66 74 2d |d-dos:mi|crosoft-|
|00002f80| 72 65 2d 65 78 65 20 22 | 5e 5b 5e 5c 6e 5d 2b 20 |re-exe "|^[^\n]+ |
|00002f90| 3c 44 49 52 3e 20 22 20 | 65 66 73 2d 64 69 72 65 |<DIR> " |efs-dire|
|00002fa0| 64 2d 64 6f 73 3a 6d 69 | 63 72 6f 73 6f 66 74 2d |d-dos:mi|crosoft-|
|00002fb0| 72 65 2d 64 69 72 20 23 | 5b 28 64 69 72 29 20 22 |re-dir #|[(dir) "|
|00002fc0| c0 09 21 87 22 20 5b 65 | 66 73 2d 64 69 72 65 64 |..!." [e|fs-dired|
|00002fd0| 2d 70 63 2d 69 6e 73 65 | 72 74 2d 68 65 61 64 65 |-pc-inse|rt-heade|
|00002fe0| 72 6c 69 6e 65 20 64 69 | 72 5d 20 32 5d 20 23 5b |rline di|r] 2] #[|
|00002ff0| 28 26 6f 70 74 69 6f 6e | 61 6c 20 72 61 69 73 65 |(&option|al raise|
|00003000| 2d 65 72 72 6f 72 20 62 | 6f 6c 20 65 6f 6c 29 20 |-error b|ol eol) |
|00003010| 22 08 ac 88 8a c1 c2 77 | 88 60 29 10 c2 1b 0c ab |"......w|.`).....|
|00003020| 85 0c 62 88 aa 84 c5 c2 | 78 88 c6 0e 07 08 c8 23 |..b.....|x......#|
|00003030| ab 85 c9 95 62 aa 87 0e | 5c 6e ad 83 cb cc 21 29 |....b...|\n....!)|
|00003040| 87 22 20 5b 65 6f 6c 20 | 22 5e 0d 5c 6e 22 20 6e |." [eol |"^.\n" n|
|00003050| 69 6c 20 63 61 73 65 2d | 66 6f 6c 64 2d 73 65 61 |il case-|fold-sea|
|00003060| 72 63 68 20 62 6f 6c 20 | 22 5e 5c 6e 0d 22 20 72 |rch bol |"^\n." r|
|00003070| 65 2d 73 65 61 72 63 68 | 2d 66 6f 72 77 61 72 64 |e-search|-forward|
|00003080| 20 65 66 73 2d 64 6f 73 | 3a 6d 69 63 72 6f 73 6f | efs-dos|:microso|
|00003090| 66 74 2d 66 69 6c 65 2d | 6c 69 6e 65 2d 72 65 67 |ft-file-|line-reg|
|000030a0| 65 78 70 20 74 20 30 20 | 72 61 69 73 65 2d 65 72 |exp t 0 |raise-er|
|000030b0| 72 6f 72 20 65 72 72 6f | 72 20 22 4e 6f 20 66 69 |ror erro|r "No fi|
|000030c0| 6c 65 20 6f 6e 20 74 68 | 69 73 20 6c 69 6e 65 22 |le on th|is line"|
|000030d0| 5d 20 34 5d 20 23 5b 28 | 26 6f 70 74 69 6f 6e 61 |] 4] #[(|&optiona|
|000030e0| 6c 20 6e 6f 2d 65 72 72 | 6f 72 20 62 6f 6c 20 65 |l no-err|or bol e|
|000030f0| 6f 6c 29 20 22 60 18 09 | ab a7 5c 6e ac a4 0b ae |ol) "`..|..\n....|
|00003100| 87 8a c4 c5 78 88 60 29 | 53 66 c6 61 ab 94 c7 c8 |....x.`)|Sf.a....|
|00003110| 20 21 ab 88 c9 ca cb 21 | 21 88 aa 86 c9 ca cc 21 | !.....!|!......!|
|00003120| 21 88 cd c5 77 88 08 60 | 55 ab 89 5c 6e 3f ad 86 |!...w..`|U..\n?..|
|00003130| c9 ce 21 aa 81 60 29 87 | 22 20 5b 6f 70 6f 69 6e |..!..`).|" [opoin|
|00003140| 74 20 73 65 6c 65 63 74 | 69 76 65 2d 64 69 73 70 |t select|ive-disp|
|00003150| 6c 61 79 20 6e 6f 2d 65 | 72 72 6f 72 20 62 6f 6c |lay no-e|rror bol|
|00003160| 20 22 5e 0d 5c 6e 22 20 | 6e 69 6c 20 3f 5c 72 20 | "^.\n" |nil ?\r |
|00003170| 64 69 72 65 64 2d 73 75 | 62 64 69 72 2d 68 69 64 |dired-su|bdir-hid|
|00003180| 64 65 6e 2d 70 20 64 69 | 72 65 64 2d 63 75 72 72 |den-p di|red-curr|
|00003190| 65 6e 74 2d 64 69 72 65 | 63 74 6f 72 79 20 65 72 |ent-dire|ctory er|
|000031a0| 72 6f 72 20 73 75 62 73 | 74 69 74 75 74 65 2d 63 |ror subs|titute-c|
|000031b0| 6f 6d 6d 61 6e 64 2d 6b | 65 79 73 20 22 46 69 6c |ommand-k|eys "Fil|
|000031c0| 65 20 6c 69 6e 65 20 69 | 73 20 68 69 64 64 65 6e |e line i|s hidden|
|000031d0| 2e 20 54 79 70 65 20 5c | 5c 5b 64 69 72 65 64 2d |. Type \|\[dired-|
|000031e0| 68 69 64 65 2d 73 75 62 | 64 69 72 5d 20 74 6f 20 |hide-sub|dir] to |
|000031f0| 75 6e 68 69 64 65 2e 22 | 20 22 46 69 6c 65 20 6c |unhide."| "File l|
|00003200| 69 6e 65 20 69 73 20 6f | 6d 69 74 74 65 64 2e 20 |ine is o|mitted. |
|00003210| 54 79 70 65 20 5c 5c 5b | 64 69 72 65 64 2d 6f 6d |Type \\[|dired-om|
|00003220| 69 74 2d 74 6f 67 67 6c | 65 5d 20 74 6f 20 75 6e |it-toggl|e] to un|
|00003230| 2d 6f 6d 69 74 2e 22 20 | 22 2d 5f 2b 3d 61 2d 7a |-omit." |"-_+=a-z|
|00003240| 41 2d 5a 30 2d 39 2e 24 | 7e 22 20 22 4e 6f 20 66 |A-Z0-9.$|~" "No f|
|00003250| 69 6c 65 20 6f 6e 20 74 | 68 69 73 20 6c 69 6e 65 |ile on t|his line|
|00003260| 22 5d 20 33 5d 20 64 6f | 73 3a 73 74 63 70 20 23 |"] 3] do|s:stcp #|
|00003270| 5b 28 68 6f 73 74 20 75 | 73 65 72 20 64 69 72 20 |[(host u|ser dir |
|00003280| 70 61 74 68 20 26 6f 70 | 74 69 6f 6e 61 6c 20 73 |path &op|tional s|
|00003290| 77 69 74 63 68 65 73 29 | 20 22 65 62 88 c0 20 70 |witches)| "eb.. p|
|000032a0| 09 1a 1b 1c c5 8e c6 11 | c7 0e 08 50 1e 09 8a c6 |........|...P....|
|000032b0| 7f 88 60 29 1e 5c 6e cb | 0e 09 0e 5c 6e cc 23 29 |..`).\n.|...\n.#)|
|000032c0| 85 cf 00 cd 20 c6 89 1e | 0e 1e 0f 1e 10 65 62 88 |.... ...|.....eb.|
|000032d0| cb 0e 09 c6 cc 23 ab cc | d1 94 d1 95 7b 89 16 0f |.....#..|....{...|
|000032e0| d2 98 ab 88 c6 16 0f cc | 16 0e aa 89 d3 0e 0f 21 |........|.......!|
|000032f0| 16 0f c6 16 0e d4 94 d4 | 95 7b 89 1e 15 3b ab 84 |........|.{...;..|
|00003300| 0e 15 aa 84 d6 0e 15 21 | 29 1e 15 d7 0e 15 0e 10 |.......!|).......|
|00003310| 5c 22 1e 18 d9 0e 18 da | 0e 0e 0e 0f 44 23 88 2a |\"......|....D#.*|
|00003320| d4 79 88 aa 2c db 1e 15 | db 3b ab 84 0e 15 aa 84 |.y..,...|.;......|
|00003330| d6 0e 15 21 29 1e 15 d7 | 0e 15 0e 10 5c 22 1e 18 |...!)...|....\"..|
|00003340| d9 0e 18 da dc 23 88 2a | dd 1e 15 dd 3b ab 84 0e |.....#.*|....;...|
|00003350| 15 aa 84 d6 0e 15 21 29 | 1e 15 d7 0e 15 0e 10 5c |......!)|.......\|
|00003360| 22 1e 18 d9 0e 18 da de | 23 88 2a 0e 10 2b 2d 87 |".......|#.*..+-.|
|00003370| 22 20 5b 6d 61 74 63 68 | 2d 64 61 74 61 20 63 61 |" [match|-data ca|
|00003380| 73 65 2d 66 6f 6c 64 2d | 73 65 61 72 63 68 20 63 |se-fold-|search c|
|00003390| 66 73 20 62 75 66 66 20 | 6d 61 74 63 68 2d 64 61 |fs buff |match-da|
|000033a0| 74 61 20 28 28 62 79 74 | 65 2d 63 6f 64 65 20 22 |ta ((byt|e-code "|
|000033b0| c0 c1 c2 8f 88 c3 0c 21 | 87 22 20 5b 6e 69 6c 20 |.......!|." [nil |
|000033c0| 28 62 79 74 65 2d 63 6f | 64 65 20 22 8a 08 71 88 |(byte-co|de "..q.|
|000033d0| 09 12 29 c3 87 22 20 5b | 62 75 66 66 20 63 66 73 |..).." [|buff cfs|
|000033e0| 20 63 61 73 65 2d 66 6f | 6c 64 2d 73 65 61 72 63 | case-fo|ld-searc|
|000033f0| 68 20 6e 69 6c 5d 20 31 | 29 20 28 28 65 72 72 6f |h nil] 1|) ((erro|
|00003400| 72 29 29 20 73 74 6f 72 | 65 2d 6d 61 74 63 68 2d |r)) stor|e-match-|
|00003410| 64 61 74 61 20 6d 61 74 | 63 68 2d 64 61 74 61 5d |data mat|ch-data]|
|00003420| 20 33 29 29 20 6e 69 6c | 20 22 5e 22 20 65 66 73 | 3)) nil| "^" efs|
|00003430| 2d 64 6f 73 3a 73 74 63 | 70 2d 66 69 6c 65 2d 6c |-dos:stc|p-file-l|
|00003440| 69 6e 65 2d 72 65 67 65 | 78 70 20 72 65 67 65 78 |ine-rege|xp regex|
|00003450| 70 20 65 6f 6c 20 72 65 | 2d 73 65 61 72 63 68 2d |p eol re|-search-|
|00003460| 66 6f 72 77 61 72 64 20 | 74 20 65 66 73 2d 6d 61 |forward |t efs-ma|
|00003470| 6b 65 2d 68 61 73 68 74 | 61 62 6c 65 20 64 69 72 |ke-hasht|able dir|
|00003480| 2d 70 20 73 69 7a 65 20 | 74 62 6c 20 32 20 22 3c |-p size |tbl 2 "<|
|00003490| 44 49 52 3e 22 20 73 74 | 72 69 6e 67 2d 74 6f 2d |DIR>" st|ring-to-|
|000034a0| 69 6e 74 20 31 20 6b 65 | 79 20 70 72 69 6e 31 2d |int 1 ke|y prin1-|
|000034b0| 74 6f 2d 73 74 72 69 6e | 67 20 69 6e 74 65 72 6e |to-strin|g intern|
|000034c0| 20 73 79 6d 20 70 75 74 | 20 76 61 6c 20 22 2e 22 | sym put| val "."|
|000034d0| 20 28 74 29 20 22 2e 2e | 22 20 28 74 29 5d 20 36 | (t) "..|" (t)] 6|
|000034e0| 5d 20 22 5e 5b 2d 5f 2b | 3d 61 2d 7a 41 2d 5a 30 |] "^[-_+|=a-zA-Z0|
|000034f0| 2d 39 24 7e 5d 2b 5c 5c | 2e 5c 5c 28 45 58 45 5c |-9$~]+\\|.\\(EXE\|
|00003500| 5c 7c 65 78 65 5c 5c 29 | 20 22 20 65 66 73 2d 64 |\|exe\\)| " efs-d|
|00003510| 69 72 65 64 2d 64 6f 73 | 3a 73 74 63 70 2d 72 65 |ired-dos|:stcp-re|
|00003520| 2d 65 78 65 20 22 5e 5b | 5e 5c 6e 20 5d 2b 20 2b |-exe "^[|^\n ]+ +|
|00003530| 3c 44 49 52 3e 20 22 20 | 65 66 73 2d 64 69 72 65 |<DIR> " |efs-dire|
|00003540| 64 2d 64 6f 73 3a 73 74 | 63 70 2d 72 65 2d 64 69 |d-dos:st|cp-re-di|
|00003550| 72 20 23 5b 28 64 69 72 | 29 20 22 c0 09 21 87 22 |r #[(dir|) "..!."|
|00003560| 20 5b 65 66 73 2d 64 69 | 72 65 64 2d 70 63 2d 69 | [efs-di|red-pc-i|
|00003570| 6e 73 65 72 74 2d 68 65 | 61 64 65 72 6c 69 6e 65 |nsert-he|aderline|
|00003580| 20 64 69 72 5d 20 32 5d | 20 23 5b 28 26 6f 70 74 | dir] 2]| #[(&opt|
|00003590| 69 6f 6e 61 6c 20 72 61 | 69 73 65 2d 65 72 72 6f |ional ra|ise-erro|
|000035a0| 72 20 62 6f 6c 20 65 6f | 6c 29 20 22 08 ac 88 8a |r bol eo|l) "....|
|000035b0| c1 c2 77 88 60 29 10 c2 | 1b 0c ab 85 0c 62 88 aa |..w.`)..|.....b..|
|000035c0| 86 c5 c2 78 88 60 14 c6 | 0e 07 08 c8 23 ab 85 c9 |...x.`..|....#...|
|000035d0| 94 62 aa 8b 0e 5c 6e ab | 85 cb cc 21 aa 82 0c 62 |.b...\n.|...!...b|
|000035e0| 29 87 22 20 5b 65 6f 6c | 20 22 5e 0d 5c 6e 22 20 |)." [eol| "^.\n" |
|000035f0| 6e 69 6c 20 63 61 73 65 | 2d 66 6f 6c 64 2d 73 65 |nil case|-fold-se|
|00003600| 61 72 63 68 20 62 6f 6c | 20 22 5e 5c 6e 0d 22 20 |arch bol| "^\n." |
|00003610| 72 65 2d 73 65 61 72 63 | 68 2d 66 6f 72 77 61 72 |re-searc|h-forwar|
|00003620| 64 20 65 66 73 2d 64 6f | 73 3a 73 74 63 70 2d 66 |d efs-do|s:stcp-f|
|00003630| 69 6c 65 2d 6c 69 6e 65 | 2d 72 65 67 65 78 70 20 |ile-line|-regexp |
|00003640| 74 20 30 20 72 61 69 73 | 65 2d 65 72 72 6f 72 20 |t 0 rais|e-error |
|00003650| 65 72 72 6f 72 20 22 4e | 6f 20 66 69 6c 65 20 6f |error "N|o file o|
|00003660| 6e 20 74 68 69 73 20 6c | 69 6e 65 22 5d 20 34 5d |n this l|ine"] 4]|
|00003670| 20 23 5b 28 26 6f 70 74 | 69 6f 6e 61 6c 20 6e 6f | #[(&opt|ional no|
|00003680| 2d 65 72 72 6f 72 20 62 | 6f 6c 20 65 6f 6c 29 20 |-error b|ol eol) |
|00003690| 22 60 18 09 ab a7 5c 6e | ac a4 0b ae 87 8a c4 c5 |"`....\n|........|
|000036a0| 78 88 60 29 53 66 c6 61 | ab 94 c7 c8 20 21 ab 88 |x.`)Sf.a|.... !..|
|000036b0| c9 ca cb 21 21 88 aa 86 | c9 ca cc 21 21 88 cd c5 |...!!...|...!!...|
|000036c0| 77 88 08 60 55 ab 89 5c | 6e 3f ad 86 c9 ce 21 aa |w..`U..\|n?....!.|
|000036d0| 81 60 29 87 22 20 5b 6f | 70 6f 69 6e 74 20 73 65 |.`)." [o|point se|
|000036e0| 6c 65 63 74 69 76 65 2d | 64 69 73 70 6c 61 79 20 |lective-|display |
|000036f0| 6e 6f 2d 65 72 72 6f 72 | 20 62 6f 6c 20 22 5e 0d |no-error| bol "^.|
|00003700| 5c 6e 22 20 6e 69 6c 20 | 3f 5c 72 20 64 69 72 65 |\n" nil |?\r dire|
|00003710| 64 2d 73 75 62 64 69 72 | 2d 68 69 64 64 65 6e 2d |d-subdir|-hidden-|
|00003720| 70 20 64 69 72 65 64 2d | 63 75 72 72 65 6e 74 2d |p dired-|current-|
|00003730| 64 69 72 65 63 74 6f 72 | 79 20 65 72 72 6f 72 20 |director|y error |
|00003740| 73 75 62 73 74 69 74 75 | 74 65 2d 63 6f 6d 6d 61 |substitu|te-comma|
|00003750| 6e 64 2d 6b 65 79 73 20 | 22 46 69 6c 65 20 6c 69 |nd-keys |"File li|
|00003760| 6e 65 20 69 73 20 68 69 | 64 64 65 6e 2e 20 54 79 |ne is hi|dden. Ty|
|00003770| 70 65 20 5c 5c 5b 64 69 | 72 65 64 2d 68 69 64 65 |pe \\[di|red-hide|
|00003780| 2d 73 75 62 64 69 72 5d | 20 74 6f 20 75 6e 68 69 |-subdir]| to unhi|
|00003790| 64 65 2e 22 20 22 46 69 | 6c 65 20 6c 69 6e 65 20 |de." "Fi|le line |
|000037a0| 69 73 20 6f 6d 69 74 74 | 65 64 2e 20 54 79 70 65 |is omitt|ed. Type|
|000037b0| 20 5c 5c 5b 64 69 72 65 | 64 2d 6f 6d 69 74 2d 74 | \\[dire|d-omit-t|
|000037c0| 6f 67 67 6c 65 5d 20 74 | 6f 20 75 6e 2d 6f 6d 69 |oggle] t|o un-omi|
|000037d0| 74 2e 22 20 22 2d 5f 2b | 3d 61 2d 7a 41 2d 5a 30 |t." "-_+|=a-zA-Z0|
|000037e0| 2d 39 2e 24 7e 22 20 22 | 4e 6f 20 66 69 6c 65 20 |-9.$~" "|No file |
|000037f0| 6f 6e 20 74 68 69 73 20 | 6c 69 6e 65 22 5d 20 33 |on this |line"] 3|
|00003800| 5d 20 23 5b 28 66 69 6c | 65 20 70 61 74 68 20 26 |] #[(fil|e path &|
|00003810| 6f 70 74 69 6f 6e 61 6c | 20 73 77 69 74 63 68 65 |optional| switche|
|00003820| 73 20 77 69 6c 64 63 61 | 72 64 29 20 22 c0 c1 65 |s wildca|rd) "..e|
|00003830| 64 23 87 22 20 5b 73 6f | 72 74 2d 66 69 65 6c 64 |d#." [so|rt-field|
|00003840| 73 20 31 5d 20 34 5d 20 | 64 6f 73 3a 77 69 6e 73 |s 1] 4] |dos:wins|
|00003850| 6f 63 6b 20 23 5b 28 68 | 6f 73 74 20 75 73 65 72 |ock #[(h|ost user|
|00003860| 20 64 69 72 20 70 61 74 | 68 20 26 6f 70 74 69 6f | dir pat|h &optio|
|00003870| 6e 61 6c 20 73 77 69 74 | 63 68 65 73 29 20 22 65 |nal swit|ches) "e|
|00003880| 62 88 c0 20 70 09 1a 1b | 1c c5 8e c6 11 c7 0e 08 |b.. p...|........|
|00003890| c6 c9 23 85 b3 00 ca 20 | c6 89 1e 0b 1e 0c 1e 0d |..#.... |........|
|000038a0| ce cf 94 cf 95 7b 21 16 | 0c 8a d0 79 88 d1 c6 77 |.....{!.|...y...w|
|000038b0| 88 d2 67 d3 5c 22 29 16 | 0b 60 c6 7f 88 60 7b 89 |..g.\").|.`...`{.|
|000038c0| 1e 14 3b ab 84 0e 14 aa | 84 d5 0e 14 21 29 1e 14 |..;.....|....!)..|
|000038d0| d6 0e 14 0e 0d 5c 22 1e | 17 d8 0e 17 d9 0e 0b 0e |.....\".|........|
|000038e0| 0c 44 23 88 2a c7 0e 08 | c6 c9 23 ac 35 da 1e 14 |.D#.*...|..#.5...|
|000038f0| da 3b ab 84 0e 14 aa 84 | d5 0e 14 21 29 1e 14 d6 |.;......|...!)...|
|00003900| 0e 14 0e 0d 5c 22 1e 17 | d8 0e 17 d9 db 23 88 2a |....\"..|.....#.*|
|00003910| dc 1e 14 dc 3b ab 84 0e | 14 aa 84 d5 0e 14 21 29 |....;...|......!)|
|00003920| 1e 14 d6 0e 14 0e 0d 5c | 22 1e 17 d8 0e 17 d9 dd |.......\|".......|
|00003930| 23 88 2a 0e 0d 2b 2c 87 | 22 20 5b 6d 61 74 63 68 |#.*..+,.|" [match|
|00003940| 2d 64 61 74 61 20 63 61 | 73 65 2d 66 6f 6c 64 2d |-data ca|se-fold-|
|00003950| 73 65 61 72 63 68 20 63 | 66 73 20 62 75 66 66 20 |search c|fs buff |
|00003960| 6d 61 74 63 68 2d 64 61 | 74 61 20 28 28 62 79 74 |match-da|ta ((byt|
|00003970| 65 2d 63 6f 64 65 20 22 | c0 c1 c2 8f 88 c3 0c 21 |e-code "|.......!|
|00003980| 87 22 20 5b 6e 69 6c 20 | 28 62 79 74 65 2d 63 6f |." [nil |(byte-co|
|00003990| 64 65 20 22 8a 08 71 88 | 09 12 29 c3 87 22 20 5b |de "..q.|..).." [|
|000039a0| 62 75 66 66 20 63 66 73 | 20 63 61 73 65 2d 66 6f |buff cfs| case-fo|
|000039b0| 6c 64 2d 73 65 61 72 63 | 68 20 6e 69 6c 5d 20 31 |ld-searc|h nil] 1|
|000039c0| 29 20 28 28 65 72 72 6f | 72 29 29 20 73 74 6f 72 |) ((erro|r)) stor|
|000039d0| 65 2d 6d 61 74 63 68 2d | 64 61 74 61 20 6d 61 74 |e-match-|data mat|
|000039e0| 63 68 2d 64 61 74 61 5d | 20 33 29 29 20 6e 69 6c |ch-data]| 3)) nil|
|000039f0| 20 72 65 2d 73 65 61 72 | 63 68 2d 66 6f 72 77 61 | re-sear|ch-forwa|
|00003a00| 72 64 20 65 66 73 2d 64 | 6f 73 3a 77 69 6e 73 6f |rd efs-d|os:winso|
|00003a10| 63 6b 2d 64 61 74 65 2d | 61 6e 64 2d 73 69 7a 65 |ck-date-|and-size|
|00003a20| 2d 72 65 67 65 78 70 20 | 74 20 65 66 73 2d 6d 61 |-regexp |t efs-ma|
|00003a30| 6b 65 2d 68 61 73 68 74 | 61 62 6c 65 20 64 69 72 |ke-hasht|able dir|
|00003a40| 70 20 73 69 7a 65 20 74 | 62 6c 20 73 74 72 69 6e |p size t|bl strin|
|00003a50| 67 2d 74 6f 2d 69 6e 74 | 20 31 20 30 20 22 20 22 |g-to-int| 1 0 " "|
|00003a60| 20 63 68 61 72 2d 65 71 | 75 61 6c 20 3f 64 20 6b | char-eq|ual ?d k|
|00003a70| 65 79 20 70 72 69 6e 31 | 2d 74 6f 2d 73 74 72 69 |ey prin1|-to-stri|
|00003a80| 6e 67 20 69 6e 74 65 72 | 6e 20 73 79 6d 20 70 75 |ng inter|n sym pu|
|00003a90| 74 20 76 61 6c 20 22 2e | 22 20 28 74 29 20 22 2e |t val ".|" (t) ".|
|00003aa0| 2e 22 20 28 74 29 5d 20 | 36 5d 20 22 5c 5c 2e 65 |." (t)] |6] "\\.e|
|00003ab0| 78 65 24 22 20 65 66 73 | 2d 64 69 72 65 64 2d 64 |xe$" efs|-dired-d|
|00003ac0| 6f 73 3a 77 69 6e 73 6f | 63 6b 2d 72 65 2d 65 78 |os:winso|ck-re-ex|
|00003ad0| 65 20 22 5e 2e 20 2b 64 | 22 20 65 66 73 2d 64 69 |e "^. +d|" efs-di|
|00003ae0| 72 65 64 2d 64 6f 73 3a | 77 69 6e 73 6f 63 6b 2d |red-dos:|winsock-|
|00003af0| 72 65 2d 64 69 72 20 23 | 5b 28 64 69 72 29 20 22 |re-dir #|[(dir) "|
|00003b00| c0 09 21 87 22 20 5b 65 | 66 73 2d 64 69 72 65 64 |..!." [e|fs-dired|
|00003b10| 2d 70 63 2d 69 6e 73 65 | 72 74 2d 68 65 61 64 65 |-pc-inse|rt-heade|
|00003b20| 72 6c 69 6e 65 20 64 69 | 72 5d 20 32 5d 20 23 5b |rline di|r] 2] #[|
|00003b30| 28 26 6f 70 74 69 6f 6e | 61 6c 20 72 61 69 73 65 |(&option|al raise|
|00003b40| 2d 65 72 72 6f 72 20 62 | 6f 6c 20 65 6f 6c 29 20 |-error b|ol eol) |
|00003b50| 22 08 ac 88 8a c1 c2 77 | 88 60 29 10 c2 1b 0c ab |"......w|.`).....|
|00003b60| 85 0c 62 88 aa 86 c5 c2 | 78 88 60 14 c6 0e 07 08 |..b.....|x.`.....|
|00003b70| c8 23 ab 83 60 aa 8b 0e | 09 ab 85 ca cb 21 aa 82 |.#..`...|.....!..|
|00003b80| 0c 62 29 87 22 20 5b 65 | 6f 6c 20 22 5e 0d 5c 6e |.b)." [e|ol "^.\n|
|00003b90| 22 20 6e 69 6c 20 63 61 | 73 65 2d 66 6f 6c 64 2d |" nil ca|se-fold-|
|00003ba0| 73 65 61 72 63 68 20 62 | 6f 6c 20 22 5e 5c 6e 0d |search b|ol "^\n.|
|00003bb0| 22 20 72 65 2d 73 65 61 | 72 63 68 2d 66 6f 72 77 |" re-sea|rch-forw|
|00003bc0| 61 72 64 20 65 66 73 2d | 64 6f 73 3a 77 69 6e 73 |ard efs-|dos:wins|
|00003bd0| 6f 63 6b 2d 64 61 74 65 | 2d 61 6e 64 2d 73 69 7a |ock-date|-and-siz|
|00003be0| 65 2d 72 65 67 65 78 70 | 20 74 20 72 61 69 73 65 |e-regexp| t raise|
|00003bf0| 2d 65 72 72 6f 72 20 65 | 72 72 6f 72 20 22 4e 6f |-error e|rror "No|
|00003c00| 20 66 69 6c 65 20 6f 6e | 20 74 68 69 73 20 6c 69 | file on| this li|
|00003c10| 6e 65 22 5d 20 34 5d 20 | 23 5b 28 26 6f 70 74 69 |ne"] 4] |#[(&opti|
|00003c20| 6f 6e 61 6c 20 6e 6f 2d | 65 72 72 6f 72 20 62 6f |onal no-|error bo|
|00003c30| 6c 20 65 6f 6c 29 20 22 | 60 18 09 ab a7 5c 6e ac |l eol) "|`....\n.|
|00003c40| a4 0b ae 87 8a c4 c5 78 | 88 60 29 53 66 c6 61 ab |.......x|.`)Sf.a.|
|00003c50| 94 c7 c8 20 21 ab 88 c9 | ca cb 21 21 88 aa 86 c9 |... !...|..!!....|
|00003c60| ca cc 21 21 88 cd c5 77 | 88 08 60 55 ab 89 5c 6e |..!!...w|..`U..\n|
|00003c70| 3f ad 86 c9 ce 21 aa 81 | 60 29 87 22 20 5b 6f 70 |?....!..|`)." [op|
|00003c80| 6f 69 6e 74 20 73 65 6c | 65 63 74 69 76 65 2d 64 |oint sel|ective-d|
|00003c90| 69 73 70 6c 61 79 20 6e | 6f 2d 65 72 72 6f 72 20 |isplay n|o-error |
|00003ca0| 62 6f 6c 20 22 5e 0d 5c | 6e 22 20 6e 69 6c 20 3f |bol "^.\|n" nil ?|
|00003cb0| 5c 72 20 64 69 72 65 64 | 2d 73 75 62 64 69 72 2d |\r dired|-subdir-|
|00003cc0| 68 69 64 64 65 6e 2d 70 | 20 64 69 72 65 64 2d 63 |hidden-p| dired-c|
|00003cd0| 75 72 72 65 6e 74 2d 64 | 69 72 65 63 74 6f 72 79 |urrent-d|irectory|
|00003ce0| 20 65 72 72 6f 72 20 73 | 75 62 73 74 69 74 75 74 | error s|ubstitut|
|00003cf0| 65 2d 63 6f 6d 6d 61 6e | 64 2d 6b 65 79 73 20 22 |e-comman|d-keys "|
|00003d00| 46 69 6c 65 20 6c 69 6e | 65 20 69 73 20 68 69 64 |File lin|e is hid|
|00003d10| 64 65 6e 2e 20 54 79 70 | 65 20 5c 5c 5b 64 69 72 |den. Typ|e \\[dir|
|00003d20| 65 64 2d 68 69 64 65 2d | 73 75 62 64 69 72 5d 20 |ed-hide-|subdir] |
|00003d30| 74 6f 20 75 6e 68 69 64 | 65 2e 22 20 22 46 69 6c |to unhid|e." "Fil|
|00003d40| 65 20 6c 69 6e 65 20 69 | 73 20 6f 6d 69 74 74 65 |e line i|s omitte|
|00003d50| 64 2e 20 54 79 70 65 20 | 5c 5c 5b 64 69 72 65 64 |d. Type |\\[dired|
|00003d60| 2d 6f 6d 69 74 2d 74 6f | 67 67 6c 65 5d 20 74 6f |-omit-to|ggle] to|
|00003d70| 20 75 6e 2d 6f 6d 69 74 | 2e 22 20 22 2d 5f 2b 3d | un-omit|." "-_+=|
|00003d80| 61 2d 7a 41 2d 5a 30 2d | 39 2e 24 7e 22 20 22 4e |a-zA-Z0-|9.$~" "N|
|00003d90| 6f 20 66 69 6c 65 20 6f | 6e 20 74 68 69 73 20 6c |o file o|n this l|
|00003da0| 69 6e 65 22 5d 20 33 5d | 20 23 5b 28 66 69 6c 65 |ine"] 3]| #[(file|
|00003db0| 20 70 61 74 68 20 26 6f | 70 74 69 6f 6e 61 6c 20 | path &o|ptional |
|00003dc0| 73 77 69 74 63 68 65 73 | 20 77 69 6c 64 63 61 72 |switches| wildcar|
|00003dd0| 64 29 20 22 c0 c1 65 64 | 23 87 22 20 5b 73 6f 72 |d) "..ed|#." [sor|
|00003de0| 74 2d 66 69 65 6c 64 73 | 20 39 5d 20 34 5d 20 22 |t-fields| 9] 4] "|
|00003df0| 20 2b 5c 5c 28 5b 30 2d | 39 5d 2b 5c 5c 29 20 2b | +\\([0-|9]+\\) +|
|00003e00| 5c 5c 28 5b 5e 20 5d 2b | 5c 5c 29 3f 20 2b 5b 30 |\\([^ ]+|\\)? +[0|
|00003e10| 31 5d 5b 30 2d 39 5d 2d | 5b 30 2d 33 5d 5b 30 2d |1][0-9]-|[0-3][0-|
|00003e20| 39 5d 2d 5b 30 2d 39 5d | 5b 30 2d 39 5d 20 2b 22 |9]-[0-9]|[0-9] +"|
|00003e30| 20 22 5b 30 2d 32 5d 5b | 30 2d 39 5d 3a 5b 30 2d | "[0-2][|0-9]:[0-|
|00003e40| 36 5d 5b 30 2d 39 5d 20 | 2b 22 20 65 66 73 2d 6f |6][0-9] |+" efs-o|
|00003e50| 73 32 2d 66 69 6c 65 2d | 6c 69 6e 65 2d 72 65 67 |s2-file-|line-reg|
|00003e60| 65 78 70 20 6f 73 32 20 | 23 5b 28 70 61 74 68 20 |exp os2 |#[(path |
|00003e70| 26 6f 70 74 69 6f 6e 61 | 6c 20 72 65 76 65 72 73 |&optiona|l revers|
|00003e80| 65 29 20 22 c0 09 5c 6e | 5c 22 87 22 20 5b 65 66 |e) "..\n|\"." [ef|
|00003e90| 73 2d 66 69 78 2d 70 63 | 2d 70 61 74 68 20 70 61 |s-fix-pc|-path pa|
|00003ea0| 74 68 20 72 65 76 65 72 | 73 65 5d 20 33 5d 20 23 |th rever|se] 3] #|
|00003eb0| 5b 28 64 69 72 2d 70 61 | 74 68 29 20 22 c0 c1 5c |[(dir-pa|th) "..\|
|00003ec0| 6e 5c 22 ab 84 c3 c4 21 | 87 c0 c5 5c 6e 5c 22 ab |n\"....!|...\n\".|
|00003ed0| 86 c6 5c 6e 21 c7 50 87 | c6 5c 6e 21 87 22 20 5b |..\n!.P.|.\n!." [|
|00003ee0| 73 74 72 69 6e 67 2d 6d | 61 74 63 68 20 22 5e 2f |string-m|atch "^/|
|00003ef0| 5c 5c 28 2e 3a 5c 5c 29 | 3f 24 22 20 64 69 72 2d |\\(.:\\)|?$" dir-|
|00003f00| 70 61 74 68 20 65 72 72 | 6f 72 20 22 43 61 6e 27 |path err|or "Can'|
|00003f10| 74 20 6c 69 73 74 20 44 | 4f 53 20 6f 72 20 4f 53 |t list D|OS or OS|
|00003f20| 2f 32 20 64 69 73 6b 73 | 22 20 22 2f 24 22 20 65 |/2 disks|" "/$" e|
|00003f30| 66 73 2d 66 69 78 2d 70 | 63 2d 70 61 74 68 20 22 |fs-fix-p|c-path "|
|00003f40| 2e 22 5d 20 33 5d 20 22 | 5c 5c 2e 5c 6e 22 20 65 |."] 3] "|\\.\n" e|
|00003f50| 66 73 2d 6f 73 32 2d 64 | 6f 74 2d 6c 69 6e 65 2d |fs-os2-d|ot-line-|
|00003f60| 72 65 67 65 78 70 20 23 | 5b 28 68 6f 73 74 20 75 |regexp #|[(host u|
|00003f70| 73 65 72 20 64 69 72 20 | 70 61 74 68 20 26 6f 70 |ser dir |path &op|
|00003f80| 74 69 6f 6e 61 6c 20 73 | 77 69 74 63 68 65 73 29 |tional s|witches)|
|00003f90| 20 22 c0 20 70 09 1a 1b | 1c c5 8e c6 11 c7 c8 0e | ". p...|........|
|00003fa0| 09 5c 22 ac 8c 65 62 88 | ca 0e 0b c6 cc 23 85 b1 |.\"..eb.|.....#..|
|00003fb0| 00 cd 20 1e 0e 65 62 88 | cf 1e 10 cf 3b ab 84 0e |.. ..eb.|....;...|
|00003fc0| 10 aa 84 d1 0e 10 21 29 | 1e 10 d2 0e 10 0e 0e 5c |......!)|.......\|
|00003fd0| 22 1e 13 d4 0e 13 d5 d6 | 23 88 2a d7 1e 10 d7 3b |".......|#.*....;|
|00003fe0| ab 84 0e 10 aa 84 d1 0e | 10 21 29 1e 10 d2 0e 10 |........|.!).....|
|00003ff0| 0e 0e 5c 22 1e 13 d4 0e | 13 d5 d8 23 88 2a d9 0e |..\"....|...#.*..|
|00004000| 1a 21 ab bf c6 7f 88 db | 95 60 7b 89 1e 10 3b ab |.!......|.`{...;.|
|00004010| 84 0e 10 aa 84 d1 0e 10 | 21 29 1e 10 d2 0e 10 0e |........|!)......|
|00004020| 0e 5c 22 1e 13 d4 0e 13 | d5 dc 94 ad 87 dc 94 dc |.\".....|........|
|00004030| 95 7b dd 98 de df 94 df | 95 7b 21 44 23 88 2a df |.{......|.{!D#.*.|
|00004040| 79 88 aa 3b 0e 0e 29 2c | 87 22 20 5b 6d 61 74 63 |y..;..),|." [matc|
|00004050| 68 2d 64 61 74 61 20 63 | 61 73 65 2d 66 6f 6c 64 |h-data c|ase-fold|
|00004060| 2d 73 65 61 72 63 68 20 | 63 66 73 20 62 75 66 66 |-search |cfs buff|
|00004070| 20 6d 61 74 63 68 2d 64 | 61 74 61 20 28 28 62 79 | match-d|ata ((by|
|00004080| 74 65 2d 63 6f 64 65 20 | 22 c0 c1 c2 8f 88 c3 0c |te-code |".......|
|00004090| 21 87 22 20 5b 6e 69 6c | 20 28 62 79 74 65 2d 63 |!." [nil| (byte-c|
|000040a0| 6f 64 65 20 22 8a 08 71 | 88 09 12 29 c3 87 22 20 |ode "..q|...).." |
|000040b0| 5b 62 75 66 66 20 63 66 | 73 20 63 61 73 65 2d 66 |[buff cf|s case-f|
|000040c0| 6f 6c 64 2d 73 65 61 72 | 63 68 20 6e 69 6c 5d 20 |old-sear|ch nil] |
|000040d0| 31 29 20 28 28 65 72 72 | 6f 72 29 29 20 73 74 6f |1) ((err|or)) sto|
|000040e0| 72 65 2d 6d 61 74 63 68 | 2d 64 61 74 61 20 6d 61 |re-match|-data ma|
|000040f0| 74 63 68 2d 64 61 74 61 | 5d 20 33 29 29 20 6e 69 |tch-data|] 3)) ni|
|00004100| 6c 20 73 74 72 69 6e 67 | 2d 6d 61 74 63 68 20 22 |l string|-match "|
|00004110| 5e 2f 2e 3a 2f 24 22 20 | 64 69 72 20 72 65 2d 73 |^/.:/$" |dir re-s|
|00004120| 65 61 72 63 68 2d 66 6f | 72 77 61 72 64 20 65 66 |earch-fo|rward ef|
|00004130| 73 2d 6f 73 32 2d 64 6f | 74 2d 6c 69 6e 65 2d 72 |s-os2-do|t-line-r|
|00004140| 65 67 65 78 70 20 74 20 | 65 66 73 2d 6d 61 6b 65 |egexp t |efs-make|
|00004150| 2d 68 61 73 68 74 61 62 | 6c 65 20 74 62 6c 20 22 |-hashtab|le tbl "|
|00004160| 2e 22 20 6b 65 79 20 70 | 72 69 6e 31 2d 74 6f 2d |." key p|rin1-to-|
|00004170| 73 74 72 69 6e 67 20 69 | 6e 74 65 72 6e 20 73 79 |string i|ntern sy|
|00004180| 6d 20 70 75 74 20 76 61 | 6c 20 28 74 29 20 22 2e |m put va|l (t) ".|
|00004190| 2e 22 20 28 74 29 20 6c | 6f 6f 6b 69 6e 67 2d 61 |." (t) l|ooking-a|
|000041a0| 74 20 65 66 73 2d 6f 73 | 32 2d 66 69 6c 65 2d 6c |t efs-os|2-file-l|
|000041b0| 69 6e 65 2d 72 65 67 65 | 78 70 20 30 20 32 20 22 |ine-rege|xp 0 2 "|
|000041c0| 44 49 52 22 20 73 74 72 | 69 6e 67 2d 74 6f 2d 69 |DIR" str|ing-to-i|
|000041d0| 6e 74 20 31 5d 20 38 5d | 20 22 5e 5b 5e 5c 6e 5d |nt 1] 8]| "^[^\n]|
|000041e0| 2b 5c 5c 2e 45 58 45 43 | 3f 24 22 20 65 66 73 2d |+\\.EXEC|?$" efs-|
|000041f0| 64 69 72 65 64 2d 6f 73 | 32 2d 72 65 2d 65 78 65 |dired-os|2-re-exe|
|00004200| 20 22 5e 20 2b 5b 30 2d | 39 5d 2b 20 2b 44 49 52 | "^ +[0-|9]+ +DIR|
|00004210| 20 22 20 65 66 73 2d 64 | 69 72 65 64 2d 6f 73 32 | " efs-d|ired-os2|
|00004220| 2d 72 65 2d 64 69 72 20 | 23 5b 28 26 6f 70 74 69 |-re-dir |#[(&opti|
|00004230| 6f 6e 61 6c 20 72 61 69 | 73 65 2d 65 72 72 6f 72 |onal rai|se-error|
|00004240| 20 62 6f 6c 20 65 6f 6c | 29 20 22 08 ac 88 8a c1 | bol eol|) ".....|
|00004250| c2 77 88 60 29 10 c2 1b | 0c ab 85 0c 62 88 aa 86 |.w.`)...|....b...|
|00004260| c5 c2 78 88 60 14 08 0c | 5a c6 56 ab 8e c7 75 88 |..x.`...|Z.V...u.|
|00004270| c8 0e 09 21 ab 85 ca 95 | 62 aa 87 0e 0b ad 83 cc |...!....|b.......|
|00004280| cd 21 29 87 22 20 5b 65 | 6f 6c 20 22 5e 0d 5c 6e |.!)." [e|ol "^.\n|
|00004290| 22 20 6e 69 6c 20 63 61 | 73 65 2d 66 6f 6c 64 2d |" nil ca|se-fold-|
|000042a0| 73 65 61 72 63 68 20 62 | 6f 6c 20 22 5e 5c 6e 0d |search b|ol "^\n.|
|000042b0| 22 20 32 34 20 32 20 6c | 6f 6f 6b 69 6e 67 2d 61 |" 24 2 l|ooking-a|
|000042c0| 74 20 65 66 73 2d 6f 73 | 32 2d 66 69 6c 65 2d 6c |t efs-os|2-file-l|
|000042d0| 69 6e 65 2d 72 65 67 65 | 78 70 20 30 20 72 61 69 |ine-rege|xp 0 rai|
|000042e0| 73 65 2d 65 72 72 6f 72 | 20 65 72 72 6f 72 20 22 |se-error| error "|
|000042f0| 4e 6f 20 66 69 6c 65 20 | 6f 6e 20 74 68 69 73 20 |No file |on this |
|00004300| 6c 69 6e 65 22 5d 20 32 | 5d 20 23 5b 28 26 6f 70 |line"] 2|] #[(&op|
|00004310| 74 69 6f 6e 61 6c 20 6e | 6f 2d 65 72 72 6f 72 20 |tional n|o-error |
|00004320| 62 6f 6c 20 65 6f 6c 29 | 20 22 60 18 09 ab a7 5c |bol eol)| "`....\|
|00004330| 6e ac a4 0b ae 87 8a c4 | c5 78 88 60 29 53 66 c6 |n.......|.x.`)Sf.|
|00004340| 61 ab 94 c7 c8 20 21 ab | 88 c9 ca cb 21 21 88 aa |a.... !.|....!!..|
|00004350| 86 c9 ca cc 21 21 88 cd | c5 77 88 08 60 55 ab 89 |....!!..|.w..`U..|
|00004360| 5c 6e 3f ad 86 c9 ce 21 | aa 81 60 29 87 22 20 5b |\n?....!|..`)." [|
|00004370| 6f 70 6f 69 6e 74 20 73 | 65 6c 65 63 74 69 76 65 |opoint s|elective|
|00004380| 2d 64 69 73 70 6c 61 79 | 20 6e 6f 2d 65 72 72 6f |-display| no-erro|
|00004390| 72 20 62 6f 6c 20 22 5e | 0d 5c 6e 22 20 6e 69 6c |r bol "^|.\n" nil|
|000043a0| 20 3f 5c 72 20 64 69 72 | 65 64 2d 73 75 62 64 69 | ?\r dir|ed-subdi|
|000043b0| 72 2d 68 69 64 64 65 6e | 2d 70 20 64 69 72 65 64 |r-hidden|-p dired|
|000043c0| 2d 63 75 72 72 65 6e 74 | 2d 64 69 72 65 63 74 6f |-current|-directo|
|000043d0| 72 79 20 65 72 72 6f 72 | 20 73 75 62 73 74 69 74 |ry error| substit|
|000043e0| 75 74 65 2d 63 6f 6d 6d | 61 6e 64 2d 6b 65 79 73 |ute-comm|and-keys|
|000043f0| 20 22 46 69 6c 65 20 6c | 69 6e 65 20 69 73 20 68 | "File l|ine is h|
|00004400| 69 64 64 65 6e 2e 20 54 | 79 70 65 20 5c 5c 5b 64 |idden. T|ype \\[d|
|00004410| 69 72 65 64 2d 68 69 64 | 65 2d 73 75 62 64 69 72 |ired-hid|e-subdir|
|00004420| 5d 20 74 6f 20 75 6e 68 | 69 64 65 2e 22 20 22 46 |] to unh|ide." "F|
|00004430| 69 6c 65 20 6c 69 6e 65 | 20 69 73 20 6f 6d 69 74 |ile line| is omit|
|00004440| 74 65 64 2e 20 54 79 70 | 65 20 5c 5c 5b 64 69 72 |ted. Typ|e \\[dir|
|00004450| 65 64 2d 6f 6d 69 74 2d | 74 6f 67 67 6c 65 5d 20 |ed-omit-|toggle] |
|00004460| 74 6f 20 75 6e 2d 6f 6d | 69 74 2e 22 20 22 2d 5f |to un-om|it." "-_|
|00004470| 2b 3d 61 2d 7a 41 2d 5a | 30 2d 39 2e 24 7e 22 20 |+=a-zA-Z|0-9.$~" |
|00004480| 22 4e 6f 20 66 69 6c 65 | 20 6f 6e 20 74 68 69 73 |"No file| on this|
|00004490| 20 6c 69 6e 65 22 5d 20 | 33 5d 20 23 5b 28 64 69 | line"] |3] #[(di|
|000044a0| 72 29 20 22 c0 09 21 87 | 22 20 5b 65 66 73 2d 64 |r) "..!.|" [efs-d|
|000044b0| 69 72 65 64 2d 70 63 2d | 69 6e 73 65 72 74 2d 68 |ired-pc-|insert-h|
|000044c0| 65 61 64 65 72 6c 69 6e | 65 20 64 69 72 5d 20 32 |eaderlin|e dir] 2|
|000044d0| 5d 5d 20 35 29 0a       |                         |]] 5).  |        |
+--------+-------------------------+-------------------------+--------+--------+